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; 888 8 DEFINITION poly FOR BLISS PROCESSING 

§ AR BST © DEFINITION MACROS. 

; 0005 0 : Version ‘'v04-000 

3 pone 0 ! 

; 000 leo 

3 sia 0 See RARER AEE AAAAAAAAAAAAARAAAAEAAAAAAAAAAAAAAE AAA T EAA TERA AEAEAAARAAEHEEAE 
: 0 '® 

; 0010 0 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
3 0011 O 's DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; oni¢ 8 pe ALL “!GHTS RESERVED. * 
$ it ® 
; 0014 0 '® THIS SOFTWARE Js Fyn SHED UNDER A 4 iceuse AND MAY BE USED AND copies * 
s 0015 0 '‘® ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE * 
4 0016 0 'e NCLUSION OF THE ABOVE COPYRIGHT N tree THIS —E OR ANY OTH * 
; 0017 O 't COPIES THEREOF MAY NOT BE OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
$ ht | 0 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
3 ith 8 .* TRANSFERRED. % 
3 ‘® a 
F4 poe) 0 '® THE gee IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 00 ¢ 0 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 iF : & CORPORATION. * 
Py ° * 
$ ier 0 '@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 0026 0 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
:; 0027 0 'e + 
; 0028 O 'e * 
4 94 See RRA AAAAEEAARAAAAAAAAERAERAREA RARER AAA AEA AAA AAA AAR 
; ow ' 

i. oe & lee 

3 O03¢ 0 ' 

: 003 0 ' MODIFIED BY: 

; 0034 0 : . 

; 0035 0 : V02-001 REFORMAT Maria del C. Nasr 01-Aug*1980 

; 0036 0 : 

:; 0037 O lee 

; 0038 O 

:; 0039 0 ! : ‘ ; 

5 sre ° : macros to extract offsets, field widths, etc., from field extraction macros 
: 0042 0 

Hy Does ° MACRO S$BYTEOFFSET (OFFSET, POSITION, WIDTH, SIGN) = OFFSET; 

: 004 ; MACRO $BITPOSITION (OFFSET, POSITION, WIDTH, SIGN) = POSITION2; 

: srt 4 MACRO S$FIELDWIDTH (OFFSET, POSITION, WIDTH, SIGN) = WIDTH; 

; igh 0 MACRO SEXTENSION (OFFSET, POSITION, WIDTH, SIGN) = SIGNZ; 

Py vv? 

; ™ 0051 6 MACRO SF IELDMASK (OFFSET, POSITION At SIGN) = 

; 003¢ 0 (1*(POSITION*WIDTHS = 14POSITION) 

: 0053 0 

; 0054 8 ! 

s 033 ! macro to generate equist constructs 

; 0026 0 : 

; 0057 0 MACRO 
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NUL2ND_(A, 
ZNULL(B) %; 
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SBEGIN RMSIDXMAC,V04-000 
MACRO DEFINITIONS FOR RMS=32 INDEX FILE ORGANIZATION 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE i} $e | uses A LICENSE AND AAT ea USED AND og 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJ 
AND SHOULD NOT BE CONSTRUED AS A COM 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


sett TO CHANGE WITHOUT NOTICE 


E 
MITMENT BY DIGITAL EQUIPMENT 


FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
ABSTRACT: 


i ENVIRONMENT: 


ee ed 


> 
, 
—_ 
= 
Oo 
xz 


VAX/VMS OPERATING SYSTEM 


D. H. Gillespie CREATION DATE: 17-MAR-1978 
and W. Koenig 


MODIFIED BY: 


v03-002 tegpes Maria del C. 15-Mar-1982 
se new eeetie. Re RMSBUGS. Take out definition 
i R_REC_SIZE, and R 
v03-001 MCNO002 ‘tek C. Nasr 25-Mar-1982 
Add macro dedtateton® to calculate key buffer address. 
v02-003 cDS0001 C Saether 9-Dec-1981 


Comment out peleremeen to CSHSM_READAKEAD flag in the 
SCSHFLAGS macro. 


® 
® 
* 
* 
*® 
* 
* 
*® 
= 
® 
*® 
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*® 
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® 
® 
® 
*® 
*® 
* 
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Maria del C. Nasr 3 
Add macro definition for determining record identifier size 


v02-002 MCNO001 
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| Define macro for psect attributes 
MACRO PSECT_ATTR = EXECUTE,PIC,GLOBAL %; 
Define macro to extract size 
MACRO S$BYTESIZE(OFFSET,POSITION,WIDTH,SIGN) = WIDTH / 8 %; 


' 
Structure declarations used for system defined structrues to save typing 


STRUCTURE 
BBLOCK CO, P, S, E: NJ = 


(BBLOCK+0)<P,S,E>, 
BBLOCKVECTOR CI, 0, P, S, E; N, BS] = 
(BBLOCKVECTOR+(0+1*BS))<P,S,E>; 
1 
| setae The following two macros violate the BLISS language definition 
: *tee® jim that they make use of the value of SP while building the argument 
: e#eee List. It is the opinion of the BLISS maintainers that this usage is safe 
seeee from planned future optimizations. 
i Macro to call the change mode to kernel system service. 


' Macro call format is "‘KERNEL_CALL( ROUTINE, ARG1, ARG2, ...). 


KERNEL_CALL (R) = 
EXTERNAL ROUTINE SYSSCMKRNL 
ILTIN SP; 


BUIL ; 
SYSSCMKRNL(4, .SP, X%LENGTH=1 
ead ZIF SLENGTH GTR 1 XTHEN, X%REMAINING %FI) 


: ADDRESSING_MODE (ABSOLUTE): 


1 
macro to generate a string descriptor 


MACRO 
DESCRIPTOR (STRING) = 
UPLIT (ZCHARCOUNT (STRING), UPLIT BYTE (STRING))2; 


macro to return the nu ber of actual parameters supplied to a routine call 


ACTUAL COUN 
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macro to generate call to bug check routine 


i Macro used to determine record identifier size (byte or word) depending on 


' prologue version of the file. 


\ 
i 
i 
i 
MACRO uate IDCRECADR) = 


IF .IFABCIFBSB_PLG_VER] LSSU PLGS$C_VER_3 


HEN 
-RECADRCIRC$B_1DJ 
.RECADRLIRCS$W_IDJ) % ; 


! Macro used to determine address of key buffer wanted. 


the keybuffer number. 


MACRO KEYBUF _ADDR(KBUFNO) = 


Parameter is 


. IRABCIRBSL_KEYBUF] + .IFABCIFBSW_KBUFSZ] * ((KBUFNO) - 1) % ; 
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internal register definitions 


Zz2zaee32.—C~«CS™C—MUCBTCmSBNC2&s’ 
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common register definitions 
COMMON_FABREG = 
R_FAB, R_IFAB, R_IFAB_FILE, R_IMPURE 2%, 


COMMON_IOREG = 
R_BDB, R_BKT_ADDR %, 


COMMON_RABREG = 
R_RAB, R_IRAB, R_IFAB, R_IMPUREX, 


COMMON, FAB, STR = 
“FAB 


COMMON_IO_STR = 
R-BDB_STR, 
R-BKT-ADDR_STR %, 


“IRAB_STR, 
AB-STR 
PURE_STR3; 


zn 


miscellaneous register definitions : 7 
the macros associated with registers will follow these conventions: 
macro r_name = : aie 7 
name = register_number 2%; (no trailing punctuation) 
to be used basically in a Linkage statement, and 
macro r_name_str = 
r.name : ref bblock 2; (or whatever structure) : 
to be used basically in external or global register declarations 


R_BDB = 
= 4%, 
R_BKT_ADDR = 
BKT_ADDR = 5 i, 
R.FAB = 
FAB = 8 i, 
R_IDX_DFN = 
IDX_DFN = 7 %, 
R_IFAB_FILE™= 
IFAB_LFILE = 9 2%, 
R_IMPURE 
URE = 11 %, 
R_IRAB = 
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IRAB = 9 &, 

R_RAB = 
= 8 i, 

R_REC_ADDR = 

REC_ADDR = 6 %, 
R_IFAB = 

1FAB = 10 %, 
R_BDB_STR = 

R.Sd8 : REF BBLOCK %, 
R_BKT_ADDR_STR = 

R_BKT_ADDR : REF BBLOCK %, 
R_FAB_STR = 

R_FAB =: REF BBLOCK %, 
R_ID_STR = 

R_ID : BYTE %, 
R_IDX_DFN_STR = 

R-IDX_DFN : REF BBLOCK %, 
R_IFAB_STR = 

R_IFAB =: REF BBLOCK %, 
R_IMPURE_STR = 

R_IMPURE : REF BBLOCK %, 
R_IRAB_STR = 

R_IRAB : REF BBLOCK %, 
R_RAB_STR™= 


R_RAB_ : REF BBLOCK %, 
R_REC_ADDR_STR 


R_REC_ADDR : REF BBLOCK 2%, 
R_IFAB_FICE_STR = 

R_IFAB_FILE : REF BBLOCK %, 
R_VBN_STR™= 

R_VBN %; 
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macro to make the status codes small 


MACRO WORDMASK(CODE) = ( 
(CODE AND &X'FFFF')) 


MACRO RMSERR (CODE) = (¢ 
ZNAME("RMSS$_', CODE) AND %X'FFFF*) 


RMSSUC (CODE) = ( | 
ZIF ZLENGTH EQL 0 XTHEN 


ZELSE 


¥F1) ZNAME ("RMS$_",CODE) AND 2X'*FFFF' 
%: 


macro to make constants that are calculated have the <0,16> attribute 


macros to make the code a Little nicer 
ACRO 


this macro allows you to make a call to another routine 

(and do whatever you want in a block before the call), 
and if an error resulted, do whatever you want and 

then return with the status. | 

| 


RETURN_ON_ERROR (CALL) [] = 
(LOcAC STATUS; 
IF NOT (STATUS = (CALL)) THEN 


(ZREMAINING; 
RETURN .STATUS)) %, 


this macro is the same as the one above, except that it 
it returns w/ status whether or not there was an error 
and the caller can supply an ‘else’ block 
note: the ‘call part and ‘else’ part must be separated by a comma 
-not a semicolon and the ‘else’ part must be terminated by a semicolon 


RETURN_ELSE (CALL) CJ = 
(LOCAL STATUS; 
HP ad (STATUS = (CALL)) THEN RETURN .STATUS 


| 
ZREMAINING | 
RETURN .STATUS) 


MEWN—O”O 


CGOCOSOGOOCOSOOOSOSOSCSCCOCOSCOSOSOOSOSSSOOOOCOCOOCOOOCOCOOCCOOCOOCOC OOOO OOOOOOO 


on 


BBBBSTESBETIIISZ 
oo 


pelle lw le ew we wo lololololololololo) 


ane 


SS 


S22 


oo 


Be Se Be Se Se Be Be Se Se Se Be Ss Be Se Se Ge Se Se Se Se Se Ge Fe Se Se He Ge Ge Se Se Se Se Se Se Se Se Bt Ss Oe SH Se SH Se Se SHS Se Se Se ee SHES Se ee Se ee ee 
BBBSBETSESBIETIT 
io OoOooooo 
—> so 
Nonran=os 


a SSS SSS ssh 
i 


i 
1}-se ~1984 22:56:58  VAX-11 Bliss-32 V4.0-742 Page 10 
13r8een13Rs $5:86;89 — “SNSE gD BASBScaMs  GOIIRMGINTDEF .R32:1°°% cos 


| 
| 
' this is an_ internal cache macro to put the value of the flags into cshtmp | 
MACRO IRP(A)C) = 
ZASSIGN (CSHTMP,CSHTMP OR %NAME('CSHSM_',A)); 
{RPCERERALNING : 
; ; 
! this is an internal cache macro to verify the cache flags and set them up | 
MACRO SCSHFLAGS(FLAGS) = 
COMPILETIME CSHTMP = 0; 
XIF NOT XNULL(FLAGS) %THEN | 
“FI IRP (ZREMOVE(FLAGS)); 
%IF° (CSHTMP AND CSH$M_READAHEAD) NEQ 0 %THEN 
: ZASSIGN (CSHTMP,CSHTMP OR CSHS$M_NOWAIT); 
: ZIF (CSHTMP 
' (CSHSM_LOCK OR CSH$M_NOREAD OR CSHSM_NOBUFFER)) 
: NEQ 0 XTHEN 
ZERRORMACRO (‘INVALID CACHE FLAG COMBINATION'); 
; . XFI; 
x N 
t XZASSIGN (CSHTMP,CSHTMP OR CSH$M_NOREAD) ; 
ee 


1! 
this is a macro to call cache or cachec 


MACRO CACHE (VBN,SIZE,FLAGS,EP) = 


RIF ZNULL(FLAGS) ZTHEN 
COMPILETIME CSHTMP = 0 


ZELSE 
SCSHFLAGS (FLAGS) 


MIF XNULL(EP) X%THEN 
ies RMSCACHE (VBN, SIZE, CSHTMP) 


we ZNAME ("RMSCACHE ' ,EP) (VBN,SIZE,CSHTMP) 
| 
| 
| 
| 


‘ 


| 
FI; 
IF (CSHTMP AND CSHSM_NOBUFFER) NEQ 0 XTHE , 
FI 


END 
' a; 


! this is a macro to call getbkt or getbktc 
MACRO GETBKT (VBN,SIZE,FLAGS,EP) = 


RIF ZNULL(FLAGS) THEN 
COMPILETIMC CSHTMP = 0 


ZELSE 
SCSHFLAGS (FLAGS) 


ZIF ZNULL(EP) XTHEN 
ae RMSGETBKT(VBN,SIZE,CSHTMP) 


oF ZNAME ("RMSGETBKT' ,EP) (VBN,SIZECSHTMP) 


. 
o 
. 
e 
. 
e 
. 
e 
. 
Ld 
7 
« 
. 
. 
° 
e 
. 
a 
. 
e 
- 
. 
a 
e 
° 
° 
2 
@ 
. 
e 
© 
. 
7 
ae 
. 
e 
> 
e 
« 
o 
. 
- 
- 
o 
. 
o 
. 
a 
& 
eo 
. 
e 
° 
e 
7 
° 
. 
a 
. 
e 
. 
o 
° 
o 
. 
a 
. 
e 
. 
oe 
. 
o 
. 
o 
o 
o 
a 
. 
2 
a 
ra 
on 
o 
o 
. 
e 
o 
e 
. 
e 
o 
e 
. 
o 
. 
e 
. 
oO 
. 
a 
. 
e 
° 
e 
. 
° 
. 
o 
. 
es 
. 
oe 


END 


11 


32 v4.0-74 p 
RAS OBITAMGINTDEF R32:1 22° 


VE eSS$pUAB ST 


S-stoc198t 20:56:58 


1 
1 


1 
15-se =1984 22:56:5 VAX-11 Bliss-32 V4.0-742 e 12 
| 13reeo= 1986 99:86557 — “SISSSDDAISSTRMS OBIIRMGINTDEF R32:1°°%° «25 

04 ' 
Se § these are macros to do probing of user structures 
0425 ACRO 

p 8 8 IFNORD (SIZE,ADDR,MODE) (C) = 

M 0428 IF NOT PROBER( 

M 0429 ZIF XZNULL(MODE) XTHEN O XELSE MODE XFI, 

4 0430 SIZE 

m 0431 ADDRS 

4 pres HEN 

4 oie ZREMAINING) $ 
0434 P 
0435 . 

M 0436 IFNOWRT (SIZE,ADDR,MODE) (CJ = 

M 0437 

M 0438 IF NOT PROBEW( 

M 0439 ZIF XNULL (MODE) sirnie O XELSE MODE %FI, 

M 0440 SIZE, 

M 0441 bor’ 

M 044 

M 044 N ZREMAINING) 


IFRD (SIZE,ADDR,MODE) (C) = 


M 0448 IF PROBER( 

M 0449 ZIF YNULL(MODE) XTHEN 0 XELSE MODE XFI, 
Mm 0450 SIZE 

M 0451 ADDRS 

a EN 

” %REMAINING) 


! macros to do long probes 
READ_LONG(SIZE,A DR. MODE) = = NOT RMSNOREAD_LONG(SIZE,ADDR,MODE) %, 


WRT_LONG(SIZE,ADDR,MODE) = NOT RMSNOWRT_LONG(SIZE,ADDR,MODE) %; 
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1 
macro to release a bucket and clear the location where its bdb addr is stored 
MACRO RELEASE(B) = 

BEGIN 


BDB = .B; 
B= 

BnsRL EBKT (0): 
ENDS; 


macro to make sure that an assumption made about the pesttten of symbols 
in a structure is still valid 

the arguments to this macro must be preceded b neo 

e.g., assume (Zquote ifb$b_bid, %quote ifb$b_bln) 


“MACRO ASSUME (A,B) = 
ZIF SBYTEOFFSET(A) + SBYTESIZE(A) NEQ $BYTEOFFSET(B) 
EThHeN YWARNC THA RNING CONSTANT H Has CHANGED") 


this version of assume is good for constants 
e.g. assume (irc$c_fixovhdsz + 2, irc$c_varovhdsz); 


| 

| 

| 

"MACRO ASSUME (A,B) = 
F $BYTEOFFSET(A) NEQ $BYTEOFFSET(B) 
| 

| 
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af ce YUARNG: SE ARNING CONSTANT HAS CHANGED") 
. C b 01,10] RMSIDXLNK.R32 
‘ ! 
: Define subroutine Linkage 


i 
Lee RRR RAAT EEA AREER EE 


't COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ht 
!t ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* eepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
® 
® 
® 
* 
® 
® 
® 
' & 
ie TRANSFERRED. * 
® 
® 
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! FACILITY: 
i ABSTRACT: 


i ENVIRONMENT: 


i MODIFIED BY: 
V03-024 RASO154 Ro 


v03~-023 MCNO020 Maria del C. 
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RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 


This module defines all the routine Linkage 


VAX/VMS OPERATING SYSTEM 


i AUTHOR: D. H. Gillespie , CREATION DATE: 17-MAR=1978 


and W. Koenig 


n Schaefer 2-May-1983 
Add NOPRESERVE (R2) to L_EXTENDO Linkage. 


Nasr Fonices ti 
fF, iatnene Linkages of RMSNULLKEY,and RMSCOMPRESS_KEY. 

They will be using general Linkages. Modify L_ACLOC3, 

and L_EXTENDO to use parameters instead of global registers. 


V03-022 MCNO019 Maria del C. Nasr 05-Apr-1983 


Preserve all pra esers except RO and R1 in Linkage 
FABREG. RMSXSUMO requires a separate Linkage because 
it cannot preserve R4. 


v03-021 TMKO001 Todd M. Katz 26-Mar-1983 


Add the Linkage RABREG_4. 


V03-020 MCNO018 Maria del C. Nasr 24-Mar-1983 


Define new general linkages. Also, since the Linkages 
have changed so much, eliminate all history comments. 


Vee REET 


| 
e 14 
7 ) 


—_— 


15-Sep-1984 22:56: VAX=11 Bliss-32 V4.0-742 
i 8ep-1984 $5:28:28 Ve555 SpUADE TRAS GBS IRMSINTDEF R32; 1 


This module defines all the routine Linkage for RMS-32 index file 
organization. 


KEEP THESE DEFINITIONS IN ALPHABETICAL ORDER PLEASE 
The following conventions will be used for Linkage macros: 
MACRO L “Rha 


! 
1 
1 
' 
1 
1 
1 
1 
i 
' = 
: GI 
gPOBAL (R 
; i 
; FA 
! 
\ 
M 


; 4 5 
. 39 9 3 
; 0556 0 ; 
; 0557 O ; 
>; 0558 0 3 
; 0559 O ; 
; 0560 0 g 
3; 0561 9 3 
r 8266 0 : 
s 0363 9 AME g 
: 0564 0 (REGISTERS) : ; 
3 B29? 8 EGISTER DEFINITIONS) %; : 
> 0567 0 The roateter ee nitions are macros of the forms , : 
: 0568 0 BREG, COMMON ~RABREG, COMMON JORES- etc. Ps 
; 0569 0 ! RREGN GNAME as described in RMSIDXMA 3 
3 0570 O 3 
; ri @ ACRO : 
3 0572 O : 
; M0573 O L_ALDBUF = : 
; 40574 O RLSALDBUF = $ 
: 40575 O JSB (REGISTER 5) 3 
; M0576 O GLOBAL (R IMPURE R. 1F AB) $ 
: M0577 0 NOPRESERVE (2,3,4) ~ ; 
; 0578 Q NOTUSED (8, 95 %, ; 
5 0579 O 3 
; 4 0580 0O L_ALLOC3 = $ 
; 4 0581 O RL$ALLOC3 = $ 
; 4 0582 O JSB (REGISTER = 7; REGISTER = 1, REGISTER = 2) : 3 
> 0583 0 GLOBAL (R_IFAB) %, | ; 
> 0584 0 | : 
; 4 0585 0O L_BDBALLOC = : 
; 4 0586 O RL$BDBALLOC = 4 
; 4 0587 O (REGISTER = 4, REGISTER = 5) : 3 
; 4 0588 O GLOBAL (COMMON_RABREG) é 
; 0589 0 NOPRESERVE (2,3,4,5,6) %, 3 
; 0590 0 é 
; 40591 O L_CACHE = : 
3; 4 0592 0 RLSCACHE = 3 
; 4 0593 O JSB (REGISTER = Ar REGISTER = 2, REGISTER = 3) : ; 
; 4 0594 0 GLOBAL ate pas 3 
; 6 0595 0 ruses’ ce 3 
> 0596 0 NOTUSED (8,9,10.11) %, ; 
3 fa34 0 3 
: 40595 O L_CHECK erent: | z 
; 4 0599 O RLSCHECK_SEGMENT = g 
; 4 0600 0 iSB CREGISTER = 0, REGISTER = 4, REGISTER = 2) : | 3 
> M0601 0 GLOBAL (R_IDX_DFNS | ; 
: § 0602 O NOPRE SERVE (274,5) 3 
: 0603 0 PRESERVE (1) &, : 
; 0604 0 g 
; ™ 0605 0 L_CHKSUM = 3 
; M 0606 8 RLSCHKSUM = : 
; 0607 JSB (REGISTER = 5) : 
; 0608 0 NOPRESERVE (0,1,2) %, 3 
; 0609 0 3 
:™ 0610 0 L_COMPARE_KEY = : 


| 
a 
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:™ 0611 0 RLSCOMPARE_KEY = 

:M 0612 0 JSB (REGISTER = 1, REGISTER = 3, REGISTER = 0) : 
> M0613 0 GLOBAL (R_IDX_DFNS 

: 0614 0 NOPRESERVE (3) %, 

s 615 @ 

: M0616 0 L_ERROR_LINK1 = 

> M0617 0 “RLSERROR_ LINK1 = 

; 4 0618 O JSB ( 

> M0619 0 ar OBA (COMMON _RABREG) 

> 0620 0 PRESERVE (0) %> 

s Q621 90 

: 06¢¢ 0 L_ERROR_LINK2 = 

> M 0623 0 “RUSERROR _LINK2 = 

> M 0624 0 JSB () 

> M0625 0 GLOBAL (COMMON _RABREG, R_IDX_DFN) 

> 0626 0 PRESERVE (0) %7> 

: 0627 0 

: M0628 0 L_EXTENDO = 

> M 0629 0 RLSEXTENDO = 

> M0630 0 JSB (REGISTER = 5, REGISTER = 6; REGISTER = 1, REGISTER = 6) 
> M0631 0 GLOBAL (COMMON. FABREG) 

: 0632 0 NOPRESERVE (2,3,4,5) %, 

: 0633 0 

: 4 0634 0 L_FABREG = 

> M0635 0 RLSFABREG = 
3M 0636 0 Q 

: M 0637 0 Si OBAL (COMMON. FABREG) 

; 0638 O NOPRESERVE (0,7) %, 

: 0639 0 

: 4 0640 0 L_FABREG_7 = 

> M 0641 0 RLSFABREG. 7 = 

: 6 0642 O 

3 peer 2 SP OBAL (COMMON. FABREG, R_IDX_DFN) %, 
: ™ 0645 0 L_GETSPC = 

>: M 0646 0 RL$GETSPC = 

> M 0647 0 JSB (REGISTER = 1, REGISTER = 2; REGISTER = 1) 
: M0648 0 LOBAL (R_ IMPURE) 
E m 0649 0 NOPRESERVE (2.3.4) 

: 0650 0 NOTUSED (8,9,10) X, 

5 0651 0 

: M0652 0 L_JSB = 

> ™ 0653 0 RL$JSB = 

: 0654 0 JSB © %, 

s 0655 

: ™ 0656 0 L_JSB01 = 

: M0657 0 RL$JSBO1 = 

: ™ 0658 0 JB (REGISTER = 0, RE EGIS ISTER = 1) 

> M0659 0 GLOBAL (R_BKT_A ook. REC_ADOR, R. IDX_DFN, R_IRAB, R_IFAB) 
; 0660 9 Ser ERVE (07 +) Mt 

>” 662 0 L_LINK_7.10.11 = 

; 6 0663 0 RL STINK. 7_10_11 = 

7; 4 0664 0 JSB ( 

: M0665 0 SP ORAL (R_IDX _DFN, R_IFAB, R_IMPURE) 
: 0666 : NOPRESERVE (071) &, 


eet did eilbaaicee meade naalaumeoinrs 
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: 


pa 


; M 0668 0 L_PRESERVE1 = 

; ™ 0669 0 RLSPRESERVE1 = 

; 6 0670 O J 

; M0671 O GLOBAL (COMMON -RABREG, R_BDB, R_REC_ADDR, R_IDX_DFN) 

; b67¢ 0 PRESERVE (1) %> 

3 0673 0 

3; M0674 0 L_QUERY_AND_LOCK = 

; 4 0675 O “RLSQUERY_AND LOCK = 

; M0676 O JSB (REGISTER = REGISTER #2): 

> M0677 0 GLOBAL (COMMON_ R Aart 

>; 0678 O NOPRESERVE (3)~ 

: 0679 O | 
: ™ 0680 0 L_RABREG = 
; 4 0681 0 RLSRABREG = 
> M 0682 O JSB () 
: M 0683 0 GLOBAL (COMMON RABREG) 

> 0684 0 NOPRESERVE (0,7) %, 

; 0685 0 

; M 0686 0 L_RABREG. 4 | 
: M 0687 O RLSRABREG_ 4s 
; M0688 0 JSB ( | 
; M 0689 0 SP OBAL (COMMON RABREG, R_BDB) 

>; 0690 0 NOPRESERVE (0,7) %, 

; 0691 0O 

; 6 0692 O L_RABREG 4567 = 

; 4 0693 0 RLSRABREG_ 4567 = 

3 M0694 0 JSB () 

; 4 0695 0 GLOBAL (COMMON RABREG, COMMON_IOREG, R_REC_ADDR, R_1DX_DFN) 

; 0696 0 NOPRESERVE (0,7) %, 

; 0697 0 | 
; 4 0698 0 L_RABREG 457 = 
; ™ 0699 0 RLSRABREG_ 457 = 
; ™ 0700 O JSB () 
> ™ 0701 O gt OBAL (COMMON RABREG, COMMON_IOREG, R_IDX_DFN) 

; 0702 O NOPRESERVE (0,7) %, | 
$ 0703 0 
: ™ 0704 0 L_RABREG_467 = 

3; #4 te 0 RL SRABREG_ 467 = 

; 4 0706 O JSB ( 

3 40707 O Gt BBAL (COMMON. RABREG, R_BDB, R_REC_ADDR, R_IDX_DFN) 

3 0708 O NOPRESERVE (0,7) %, 

: 0709 O 

:™ 0710 0 L_RABREG_567 = 

; M0711 0 RL SRABREG_ 567 = 

3M Orie 0 JSB () 

:™ 0713 0 GLOBAL (COMMON RABREG, R_BKT_ADDR, R_REC_ADDR, R_IDX_DFN) 

; 0714 0O NOPRESERVE (0,7) %, 

» oris @ 

> ™ 0716 0 L_RABREG_67 

; 0717 O RL SRABREG_ 67 = 

: 0718 O JSB () 

:™0719 0 $C OBAL (COMMON_RABREG, R_REC_ADDR, R_IDX_DFN) 

3 O7 9 8 NOPRESERVE (0,7) %, 

| oF ¢ 0 L_RABREG, 7 

: 6 07 0 RL SRABREG_ 7 32 | 
; 60724 O 


Re Be Oe Oe Se Be Se Se Be Be Be Se Ge Be SH Se Be Se He Be He Pete Se Se Oe Se Se Oe Se Oe Se Be Oe Se Se Se Se Se Se Se Se Se Se Se SESH Se Se Se Se Se SH Se Se Beas 
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: M0725 0 GLOBAL, (COMMON _RABREG, R_IDX_DFN) : 
: 0726 0 NCPROSERVE (0,7) %, : 
» Gre & 5 
; M0728 J L_F&LC_OVHD = : 
; 4 4094 0 RL$REC_OVHD = : 
; 4 0730 0 JSB (REGISTER = 1; REGISTER = 1) : $ 
; O73 : GLOBAL (R_REC_ADDR, R_IDX_DFN, R_IFAB) %, : 
; M O738 0 LLRELEASE = : 
; 4 0734 0 RLSRELEASE = : 
; 40735 0 JSB (REGISTER = 3) : : 
; M 8299 0 GLOBAL (R_BDB, R_IRAB, R_IFAB, R_IMPURE) : 
; 4 0737 O MOORE SERVE (1,2) : 
; 0738 O NOTUSED (8) %, : 
: 0739 0 | : 
; M0740 OQ L_RELEASE_FAB = 3 
; 40741 O RCSRELEASE_FAB = : 
; M preg 0 JSB (REGISTER = 3) : ; 
3; 40743 0 GLOBAL (R_BDB, R_IFAB, R_IFAB_FILE, R_IMPURE) : 
7 M0744 0 NOPRESERVE (1,2) : 
>; 0745 QO NOTUSED(8) %, : 
; 0746 0 $ 
; M0747 O L_RETSPC = 3 
; M0748 O RLSRETSPC = : 
; M0749 0 JSB (REGISTER= 2, REGISTER = 3, REGISTER = 4) : : 
: M0750 0 GLOBAL (R_ IMPURE) | ; 
; 0751 O NOPRESERVE (2,3,5) 3 
; 0752 0 NOTUSED (8,9,10) X, ; 
; 0753 0 F 
: 40754 0 L_SIDR_FIRST = ; 
; 40755 O RLSSIDR_FIRST = : 
; M 0756 O JSB (STANDARD; REGISTER = 1, REGISTER = 2) : | : 
3 te t4 4 GLOBAL (R_REC_ADDR, R_IDX_DFN, COMMON_RABREG) %, | : 
; 6 0759 O L_XSUMO = | : 
; 4 0760 O RLSXSUMO = : 
3; 4 0761 O JSB () : 3 
3; mM arog 0 GLOBAL (COMMON_FABREG) 3 
; 07635 0 NOPRESERVE (0,1,4) 2; 3 
: 0764 0 : 
; 0765 0 4 3 
4 0756 0 ' \RRRBASAAALALASLAALSAASLELALALSASASASES ERE EERE ERS RARER RARE ES ARSE ASE R EERE RRR SESS SOS SO Py 
; 0767 O ! « ‘ 
: 0768 0 ! * Copyright (c) 1982, 1983 , * : 
; 0795 8 } * by biG TAL Equipment Corporation, Maynard, Mass. 7 3 
oo w PD 
; Gr ® : * This software is furnished under a License and may be used and copied * : 
; 0772 0 ; 2 only in accordance with the terms of such License and with the * : 
; 0773 0 : * inclusion of the above copyright notice. This software or any other * 3 
: 0774 0 ! * copies thereof may not be provided or otherwise made available to any * 3 
s Gre @ ! # other person. No title to and ownership of the software is hereby * 3 
s O776 0 ! * transferred. * : 
s or777 90 '« r ; : es 3 
: 0778 O ! * The information in this software is subject to change without notice * : 
> Wey ® : * and should not be construed as a commitment by DIGITAL Equipment * : 
; 6780 3 } * Corporation. : : 
. * P 
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* DIGITAL assumes no responsibility for the use or reliability of its * 
* software on equipment which is not supplied by DIGITAL. * 

* *® 
LARRAALASLALALASALASALASZERELALALERALARERARRARARALARARASARASAR EERE SEAR EAS AA RSS SY 
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Created 15-SEP-1984 22:54:35 by VAX=11 SDL v2.0 


‘eee MODULE SIFBDEF *** 

NOTE: The fields thru JNLBDB inclusive are common between the ifb and irb 
iteral 11; ! ifab id code 
iteral : 

iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
teral 
teral 


remem 


2 
re 
16; 
He 
128; , 

sequential 


we 
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iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
iteral 
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organization-dependent fields 


relative org specific fields 


relative 

indexed 

direct 

release 1.5 maximum 


end of file header attributes 
end of file header attributes 
constant - the number of key buffers allocated 


the following fields are used differently 
depending upon the file's organization 
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> 0839 0 Literal IFBSS_IFBDEF = 172; : 
; 0840 0 ' “(but have definitions that allow them to : 
> «=. 0841 ! be referenced from the start of the ifab) : 
; bare | ++ : 
; 08435 0 ' the hag rag bits are defined in : 
; Baee 8 ! common with the irab : 
: 0846 0 macro IFB$V_BUSY = 4,0,1,0 %; ' stream busy : 
>; 0847 0 macro IFBSV_EOF = 4 1.1.6 x; ! file positioned at eof : 
; (848 0 macro IFBS$V~PPF_IMAGE = 4.2,1,0 %; ! es for indirect processing of process- ; 
> 0849 0 ' “permanent files (restricts allowable operations) 3 
; 0850 0 macro IFBS$V_ASYNC = 4,3,1,0 2%; ' async i/o flag (must be zero for ifab) : 
3 Bees 8 macro IFBSV_ASYNCWAIT = 4,4,1,0 %; ! wait on async i/o (must be zero for ifab) : 
; oes gt | : 
>; 0854 QO ' ifab specific bits | $ 
; 0855 0 : ; 
; 0856 0 macro IFBSV_ACCESSED = 4,5,1,0 %; ! file is accessed ; 
; 0857 O macro IFBSV_ANSI_D = _4,6,1,0 %; ! ansi d variable records F 
: 0858 0 macro IFBSV_RWC = 4,7,1,0 &: ! copy of fop bit from open $ 
>; 0859 O macro IFBSV_ = 4,8,1,0 2%; ! copy of fop bit from open 3 
; 0860 0 macro IFBSV_SPL = 4,9,1,0 %; ' copy of fop bit from open 3 
; O61 @ macro IFBS$V_SCF = 4:16,1,0 &: ! copy of fop bit from open 3 
3 eg] 0 macro IFBSV_DLT = 4,11,1,0 2%; ! copy of fop bit from open : 
: Bee 0 macro [FBSV~800 = 67180170, 43 E Sepaatiel eporeticae ante ene | 
: macro » = 4,13, ; ! seque e | ‘ 
Bees macro ths aa INPUT = 414.1,0 x; this is connand : eit stream $ 
; macro = 4,15, : ! non-file structure 2 : 
; 0867 O macro IFB$V_WRTACC = 4°16,1,0 %; ! logical or of fac tare ‘ 
; 0868 G : put, upd, del, trn : 
> 0869 0 macro IFBSV_MSE = 4,17,1,0 2: ! multi-streams enabled “ “ : 
pa ea NA Sd Bd ae ia 
; macro = 4,19,1,0 &; ‘rec u : 
: 0872 0 : .e., Mo shared access or multi-stream) . : 
; 0873 0 macro IFBSV_RW_ATTR = 4,20,1,0 %; ! set if file attributes must be re-written ; 
>; 0874 QO macro IFB$V_TMP = 4.21.1.0 i; ! temporary file (i.e., no directory entry) 3 
:  OBre 0 macro [FBSVTSTALL_LOCK’='4,25,1,0 8; | AMS is'stalled for file tock | 
M4 macro oe = o oO P+ . - 
; 0877 0 macro IFBSV~SEQFIC = 4,24,1,0 %: ! this is really a sequential file being shared ; 
; 0878 O macro IFBSV_SEARCH = 4,25,1,0 2; ! search ifab - left uring wildcard operations | ; 
; 0879 O macro IFBSV_RMS_STALL = 4 26.1.0 %; ! RMS is stalled on this file operation | 3 
; 0880 0 macro IFBSV_RESTART = 4,27,1.0 %5 ! Reopen or recreate operation in progress : 
; 0881 0 macro IFBSV~FILEFOUND = 4,28.1,0 %; ! A file was found on a search operation : 
3 882 macro IFBS$V_DAP_OPEN = 4.89 1,6 x; ! open/create function was performed via dap : 
3 ba8s macro IFBSV~DAP™= 4,30,1,0 &: ! data access gretecol transmission : 
3 tt 3 macro Ho fF 3; ox 7 a perv $08 pretene) Srenemrsnren : 
; macro = 0, 20 2; ! device characteristics bits : 
s 9386 0 ' “(for primary device - bit encoding same as for fab) 3 
5 oes 8 macro 1FBSL BKPBITS = 4,0,32,0 2; ! pookkeeping bits : 
; 0889 0 macro [BSB_B1D = 8.0.8.0 3; block id 3 
; 0890 0 macro IFB$B_BLN = -8,0 2; . block Length in Longwords : 
; 0891 0 macro IFB$B-MODE = 10.0,8,0 %; ! caller's mode , : 
; 43 6 macro 1EBSB_EFN = 13°3°5 Ot qvent flag used tor : nchronous qio : 
3 macro = 12,0,32.0 4; ! interna o status bloc wn : 
; 0894 macro IFB$L_BWB = 13 0 $ 0 2; ' pucket wait block for inter stream waiting : 
> 0895 0 macro IFB$W~10S2 = 14,6,16,0 &; i high word of io status block ; 
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089 macro IFB$L_10S4 = 16.9 ot ¥ %; ! 2nd longword of jo status block 

+944 meets ERS ASAD OR = 506 § 2 Ot a es bie ge Psp block 
= ° H user ca arameters a 

0899 macro IFB$L_IRAB_LNK = 3 0 $3 %; ! pointer to irabis ) 

0900 macro IFBSW-CHNL~= 32,0,16,0 %: ! i/o channel number 

0901 macro IFBSB-FAC = 34,0,8,0 2; i file access 

84 ere reev aryl = o79°4°8 LE ! (same as in fab's fac field) 

0904 macro IFB$V_DEL = £90168 %; 

0905 macro IFBSV_UPD = 34,5,1,0 2%; 

09 macro IFBSV_TRN = 34,4,1,0 %; 

0907 macro IFB$V_BIO = 34,5,1,0 2%; 

0908 macro IFB$V_BRO = 34,6,1,0 %; 

0909 macro IFB$V_EXE = 34,7,1,0 2%; 

0910 e: if~both bio and bro set, implies block i/o 


| 
| 
' not | 
: access only allowed for this connect, resets 
; to bro on disconnect (seq. file org. only). 


$8 ertings = 35,0,8,0 % ! copy of org for case dispatching 


Ife 
0915 macro IFBSL_LAST_FAB = 36, 6. 43,5" %; ' address of fab for Last operation 
0916 macro IFB$W_IFI = 40, 0, 18-3 %; ! Internal file Identifier, the one we gave te the user 
0917 macro IFB$W_ECHO_ISI = 4 0.16.0 %; ! ISI of stream to echo records from SYSS$INPUT 
0918 macro IFBSL_ATJNCBUF = 44,0,32,0 %; ! address of IFAB audit trail buffer 
oa macro IFBSL- _9NLBDB = 48,0,32,0 %; ! address of Journaling BDB for FAB " eperetions 
0921 macro TFBSL EXTJNLBU UF = 52,0,32.0 %; ! pointer to buffer to contain extend journal record 
0922 macro IFBSL_FWA_ = 56,0,32,0 %; ! pointer to file work area control block 
0925 macro IFBSL_NWA_PTR = 60,0,32,0 2%; ! pointer to network work area control block 
IFBSL~BDB-FLNK = 64,0,32,0 &:; i pointer to bdb(s) 
0925 macro IFB$L_8DB_BLNK = 68,0 3 0 %; ! bddb backward Link 
0926 macro IFBSL-DEVBUFSIZ = 72,0,30,0 %; | device default (or bls if mt) buff size | 
0927 macro ir een Bee = 76,0,16,0 %: ! run-time gore s extend muent ts 
0928 macro IFB$B_ = 78,0,8,0 &: ' File Sherio bits from users FA 
0929 macro IFB$B_ “AGENT _MODE’="79,0,8.0 2: ! User's FABSV_FILE_MODE field, maximized with mode of caller | 


1 ¢¢¢¢¢eenee 


{ 
' 
i the following fields must remain as is since 
: they correspond to the rms attributes stored 
' in the file header 


macro IFBSB_ ~ hepa 0,0,8,0 %; ! organization and record format 
macro IFBSV-RFM = dod 6 &; | 
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: 0 
3 0 
; 0 
; 0 
; 0 
: 0 
$ 0 
; 0 
; 0 
: 0 
3 0 
; 0 
; 0 
3 0 
3 0 
; 0 
3 0 
5 0 
; 0 
; 0 
3 0 
; 0 
: 0 
; 0 
s 0 
3 0 
3 0 
; 0 
3 0924 8 macro 
; 0 
s 0 
; 0 
; 0 
; 0 
3 0 
0 
; 0 
; 0 
3 0 
oe 0 
: 0 
3 0 
5 0 
; 0 
; 0 
3 0 
; 0 
$ 0 
: 0 
3 0 
8 0 
: Oe 
; 0 
oo 0 


344 Any 1FBSS_ REM “hi 6.08 ! record format (n.b. constant values defined in rfm field of fab) 
macro = 04,0 &; 

0941 Citeral 1fBSS ORG = 4; ' file organization ; | 
094 macro IFB$B_RAT = 81,0,8,0 2; : record attributes (n.b. bit offsets defined in rat field of fab) 
094 macro IFB$W_LRL = 82.0.16,0 &: ! longest record's Length (or fixed record Length) 
Gees BUSTS TERR BISE' Ha-EeaseS HE | Saptentaseateg tobe agi format 
geeh §Saere RRCEEES Betta” Cicee fete yte ter otoe 

macro = 94,0,8,0 2; ! bucket size (! vbns 
0948 macro IFB$B8_FSZ = 95,0,8,0 %: ! record header size for vfc | 
0949 macro IFBSW_MRS = 9 16,0 &:; ! max record size allowable 
0950 macro IFB$W_DEQ = 38° *16.0 &: i default extend quantity 
0951 macro IFBSW_GBC = 106,6,16,0 &; i global buffer count | 


Pie ical eee ee eT eg ge re ee poses ReaD 


| 
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; 0953 0 macro IFBSB_DRT_REHIT = 104,0,8,0 %; ! hit count for local dirty buffers. 
>; 0954 90 macro IFB$B_GBL_REHIT = 105, %; ! rehit count for gbl buffers. 
; 0955 0 macro IFBSL_RNS_LEN = 108,0 : 6 x; ! resultant name string Length (used as a temp fieid by $search) 
>; 0956 0 macro IFB$L_LOCR_BDB = 108,0, 2,0 &; : ee bdb petress (used by $extend for rel. file) 
BER RES UB Ie Vecpeast | aang auloctt 
; m = , oY Bi oe vbn. 
; 0959 0 macro IFBSL_SFSB_PTR = 120; 38.0 i; : ere to shared file synchronization block 
; 0960 0 macro IFB$L_GBSB_PTR = 124 8 %; ! — nter to global buffer Bynesreg: set ie block. 
>; 0961 O macro IFB$L_PAR_COCK 4p = {286,0;32.6 x; | Parent lock ID for bucket locks (get from SFSB.) 
: Boog 0 macro IFBS$W_AVLCL = Bh § 0,16,0 &: ! local buffers available. | 
BE BRS ERCARereae utelestot, | gblaper bess, ty asle 
: macro 3 ointer to global header. 
; Bee? 8 macro IFBSL_AS EVs 140.68 iootasiz «j Oss igned device characteristics | 
Py . an | 
>; 0967 8 macro IFBSL_ASDEVBSIZ = 448.9 33.0 %; ! assigned device putter size | 
: 0968 macro IFBS$L_BLBFLNK = 152,0, 2,0 2; ' forward Link to BLB ch Rath. 
| BS GIS Heetaconeptat= nage oobso-a, | $8Stoat Ing Oeertbane fla | 
3 ¥ = : u ribute gs 
: 0971 O macro IFBSV_ONLY_RU = 166,6,1,0 &:; : ecovery 0 Eournat ing no access outside RU 
; 0972 O macro IFBSV_RU = 160.1,1,0 &; ! popeuety unit ournaling 
: 0973 O macro IFB$V_BI = 160.¢.1.0 %; ! Before { mage journaling 
>; 0974 0 macro IFB$V_AI = 160,3,1,0 2%; ! After image ouraling 
: 0975 0 macro IFBSVZAT = 160.4.1,0 3: i Audit Trail journaling | 
1 eg macre Hee alan ts a Mb itok, | RivSlere Seren | 
: macro 8 = 3 ecovery fla 
; Ore @ macro IFBSV_RU_RECVR = 161.0,1.6 2%: : Secever? y unit Rollback in progress | 
; 0979 0 macro IFBSV_AI_RECVR = 161,1,1,0 2%; ! AI Roll Forward Recovery in progress 
; 0980 0 macro IFB$V_BI_RECVR = 161,2,1,0 %; ! 31 Roll Backward Recovery in progress 
>; 0981 0 macro IFB$B_JNCFLG2 = 162 6.8.6 x: ! Secondary zoyrnel tos flags afi" and 2 operation specific) 
; 0982 0 macro IFB$V_VALID_AT = 162,0,1,0 &; ' AT entry in IFB buffer is valid and should be written 
; 0983 0 macro IFBSV-JNL ="162,1,1,0 &; : Journal in Initialized for this file 
> 0984 0 macro 1FBSV-RUP = 18323-478 x: ! Recovery “Bnit in progress 
; 0985 0 macro IFB$V_RU_RLK = 162,3.1,0 %; ! Fake record a uring recovery unit 
>; 0986 0 macro IFB$V_DONE_ASS_JNL = 162,4.1,0 %; | Journal channels already assigned | 
; 0987 0 macro IFBS$L_RJB = 16%,0,32,0 2%: RMS Journaling Block address | 
: 0988 0 macro IFBSW-BUFFER OFFSET = 168,0,16,0 %; ! ANSI buffer offset 
: 0989 0 Literal IFBSK_BLN_REL = 180; 
; 0990 0 Literal IFBSC_BLN_REL = 180; 
; 0991 0 | co 
: 0992 0 1 ++ 
; 0993 0 ! | 
; 0994 0 ! indexed org specific fields 
>; 0995 0 ! 
099° 0 nace IFBBL ARN 2 173, 0 33° i; ! (rel) max record number | 
Py bl = x | 
: 0998 0 macro IFBSL~DVBN = 176,0 632.0 k; i (rel) first data bucket vbn | 
> 0999 0 literal 1FBSK BLN_IDX = {84 | 
: 1000 8 Literal IFBSC_BLN_IDX = 184 
3; = 1001 Literal IFBSK-BLN™= 186; ' ifab Length 
; 1008 8 Literal IFBSC_BLN = 184; ! ifab Length 
: 1004 9 —siiteral 1FBSS_IFBDEF2 = 184: | 
3 344 4 macro TF BSAT AV ot? 172,0 34.0 qt; side} ppinter te prinery ke inden descriptor 
; macro = 0.8.0 2; : x) vbn o rea descr r 
: 1008 0 macro [FBSB™ RUB B i's iy coe last fat tere fa ttle descriptors | 
> macr = e e e e . x . | 
; 100” macro IFB$B_UBUFSZ = 179.08:0 q; ! (idx) update buffer size for keys 
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es 
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macro IFBSW_KBUFSZ = 180 Q.16 0%; ! (idx) key buffer size | 

macro IFBSB_EXTRABUF = 18 0,8,0 &; : (idx) number of extra buffers for ‘cache'ing 
macro IFBSB_PLG_VER = 18 6.8.6 3%; ! (idx) prologue version number 


:*#* MODULE SIRBDEF *** | 

IRB field definitions | 
Internal rab (irb) | 
There is 1 irab per connected record access stream 


NOTE: The fields thru JNLBDB inclusive are common between the irb and ifb 


the ny lovins bits are defined in common 
with the ifa 


macro IRB$V_BUSY = 4,0,1,0 %; ' file busy | 
macro IRBSV~EOF = 4,1,1,6 x; ! stream positioned at eof | 
macro IRBSV~PPF_ IMAGE = 4,2,1,0 2%; ! flag for indirect processing of process- | 


: 1010 0 ; 
; 1011 QO : 
; ISi¢ 0 ; 
; 10135 QO 3 
>; 1014 8 $ 
; 3015 ‘ : 
>; 1016 QO : : 
s Wir © ' ; 
>; 1018 Q : : 
: 1019 QO : ; 
>; 1020 Q : : 
° 1021 0 ; 5 
3s; 619 ¢ 0 : ; 
>; 1023 0 : : 
; 1024 0 ' . ; 
s ‘Wes © Literal IRBS$C_BID = 10; ! irab code F 
>; 1026 0 Literal IRBSM_POSINSERT = 1; ; 
s Wer © Literal IRBSM_SRCHGT = 2; $ 
>; 1028 Q Literal IRBSM_POSDELETE = 4; : 
: 1029 0 Literal IRBSM_NEW_ IDX = 8; : 
; 1030 0 Literal IRBSM_SRCAGE = 16; 3 
; oy. Literal IRBSM_NORLS_RNF = 32; : 
3 Ie 0 Literal IRBSM_FIRST_TIM = 64; : 
; 1033 90 Literal IRBSM_PRM = 128; 3 
; 1034 0 Literal IRBSM_DUP_KEY = 256; ; 
; 1035 0 Literal IRBSM_DEL-SEEN = 512; : 
: 1036 0 Literal IRBSM_LAST GT = 1024; : 
:. ar 2 Literal IRBSM_BKT_NO_LO = 1; : 
: 1038 0 Literal IRBSM_NEW-BKTS = 6; | ; 
: 1039 0 Literal IRBSM-REC-W LO = 8; ; 
> 1040 0 Literal IRBSM_CONT_BKT = 16; : 
: 1041 0 Literal IRBSM_CONT R = 32; : 
> 1042 0 Literal IRBSM_EMPTY_BKT = 64; 3 
: 1043 0 Literal IRBSM_DUPS SEEN = 128; ; 
> 1044 0 Literal IRBSM_BKT_NO = 3; : 
: 1045 0 Literal IRBSM_BIG_SPLIT = 4; : 
>: 1046 0 Literal IRBSM_SPL_IDX = 1; : 
; 1047 0 literal IRBSM_EMPT_ SEEN = 2; 3 
: 1048 0 Literal IRBSM_VALIB_AT = 1; : 
: 1049 0 Literal IRBSKBLN_REL = 109; 2 
: 1050 QO Literal IRBSC_BLN_REL = 100; : 
: 1051 O ! ++ : 
; 1036 0 ! 3 
$ ez 8 ; sequential org specific fields | : 
; 1055 0 Literal IRBSK_BLN_SEQ = 108; | : 
: 1056 0 Literal IRBSC_BLN SEQ = 108; : 
; 1057 0 literal IRBSS_IRBDEF = 108; 3 
; 1058 0 ! to apply from start of irab | ; 
: 1059 0 ! ++ 3 
; 1060 0 : : 
: en 8 : 
ra ‘ 0 : : 
: 1064 0 3 
; 1065 QO ; 
; 1066 0 : 


RESSSS 


2 
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! permanent file 


macro IRBSV_ASYNC = 4,3,1,0 % ! asynchronous i/o request 

macro IRBSV_ASYNCWAIT = 4.4.1, ‘0 %; ! $wait issued for asynchronous i/o request 

irab specific bits 

macro IRBSV -FIND_LAST = 4, 473748 FE a; ! last operation was a find 

macro IRB$V_PUTS"LAST = ! last operation was a put sequential 

macro IRBSV- B10 CAST = 4is° { 6 x ' this/last operation is/was a block i/o operation 


note: this bit is set “only if mixed block and record 
‘ operations (bro access). after call to rm$rset 
‘ Adog # to the current operation and bro_sw gives 


SOSOSCCOCOOCOOCOOOOOOCOOOOOOOCOoOOooO 
oO sO 00 00 09 09 00 09 09 09 09 09 SIN NI SII OO 
[OO ONAULSWN ("OO ONOUFS WN —OUOO~ 


j 
Sl 


s 0 ; 
Ee 0 : 
coc y 0 : 
5s. CY 0 : 
ba 3 0 : 
; : 0 : 
c's : 
= 0 ‘ 
[9 0 : 
; } 0 3 
se f : 
: 1 0 : yBRo° last operation. 3 
. ¥ 0 macro IRB$V_BRO Sus 4,8,1,0 %; ! switched from record operation to block i/o operation : 
care 0 macro IRB$V_FIND = 4,9,1,0 2%; ! operation is a find 3 
; ¥ 0 macro IRBS$V_RAHWBH = *6.16,1,0 %; ! read ahead or write behind processing 3 
Be 0 macro [RB$V-SKIP_NEXT = 4,11,1,0 &%; i skip. to next record flag for index fo ; 
9 0 macro IRB$V_DUP = 4,12,1 6 2: : icate records seen : 
3 0 macro IRB$V_UNLOCK AP = 4,1351.0 %; ! release lock on current (rp) record ; 
; 7 0 macro IRB$V_PPF_EOF = 4 14,1.0'%; ! give one-shot rms$_eof error on sys$input ; 
ey 0 macro IRBSV_PPF_SKIP = 4,15,1,0 4: ! skip sys$input record ($deck), redoing $get 3 
: <9 0 ! or $find on next record : 
. ace 0 macro IRBSV_PPF_FNDSV = 4,16,1,0 %; ! save value for find bit when ppf_skip set : 
; 1091 0 macro IRBSV_IDX_ERR = 4,.17,1.0 %3 ! index update error occurred : 
; 1092 0 macro IRBSV_RRV_ERR = 4,18,1,0 %; ' erv update error occurred ; 
IT 0 macro IRB$V_UPDATE = 4,19,1,6 %: ! operation is an update (indexed) : 
:; 1094 0 macro IRBSV_UPDATE_IF = 4°26,1,0 %; ! operation was a $PUT -> SUPDATE 5 
; 1095 0 macro IRBSV_ABOVELCKD = 4,21,1,0 %; ' level apore was locked by search_tree 3 
>; 1096 0 macro IRBSV_GBLBUFF = 4426.1.0 %; ; inet buffers are in u : 
; 1097 0 macro IRBSV_CON_EOF = 4,25,1,0 2%; ! ile positioned at EOF hs “$CONNECT (isam) 3 
; 1098 0 macro IRBSV_NO_G WAIT = 4 $4°1,0 %; ! do not wait for enqueues on quer pyec® : 
>; 1099 QO macro IRB$V_PPF_ECHO = 4 25.1,6 2: ! echo SYSSINPUT records to SYSSOUTP ; 
: 1100 0 macro IRBSV_RMS_STALL = 26.1.0 &: ! RMS is stalled on this record raat ‘ 
: 1101 0 macro IRBSV_RESTART = 4 27,1,0 %: ! Reconnect operation in progress F 
; 02 ® macro IRBS$V_DAP_CONN = 4,28,1,0 &: ! connect function was performed via dap : 
>; 1103 O macro IRB$V_RU_DELETE = 4,25.1,0 &: ! recovery unit deletion in groeress : 
$ 1104 0 macro IRBSV_RU_UNDEL = 4 $0,1,6 x; ! recovery unit un-deletion in roses ss : 
3 1100 8 macro IRB$V_RU_UPDATE = 4,31,1.0 &: ! place new record is special R DATE format : 
: 1107 0 ;- the eet tevie are alternate definitions for alternate : 
3 118 $ (non-conflicting) use of the above bits : 
: 1110 0 macro IRB$V_WRITE = 4,9,1,0 % ! operation is a write : 
> 1117«0 macro IRBSL-IFAB_LNK = 0,0,32,0 a: i pointer to ifab 3 
; 1118 8 macro IRBSL “BKPBITS = 4,6,32,6 x ! bookkeeping status bits 3 
; 61114 «0 macro IRB$B_BID = 8,0,8,0 2; ! block id 3 
s-- hy 2 macro IRB$B_BLN = 9 8-8-8 %; ; block Length in longwords 3 
: 1116 0 macro IRB$B_MODE = {0:0,8,0 %; ! caller's mode ; 
co 2 macro IRBSB_EFN = 11.6.8 6 2; ! event fie9 for s nahepneus io : 
; 3398 @ macro IRB$L_IOS = 12,0, $0 {; ! internal i/o status : 
:; 1119 0 macro IRB$L_BWB = 12,0,32,0 2%; ' bucket wait ghyock ay inter stream locking 3 
i 1120 0 macro IRBS$W-10S2 = 14,6,16,0 &:; i high word of io status bl | ; 
s Tel macro IRB$L_I0S4 = 16,0,32,0 2; ! jo status block (2nd Ae? ) | 3 
3 1156 8 macro IRBSL_ASBADDR = 6,0.32,6 2; ! address of permanent asynchronous context block 3 
See macro IRBSL_ARGLST = 24,6,52.6 x; ! user arg List address - 
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>: 1124 0 ! if async, points to copy at head | : 
s ies & ! of async context _—— : 
: 1126 O macro IRBS$L_IRAB_LNK = Bg 32,0 %; ! pointer to next irab | : 
> 1127 0 — macro IRBSL-CURBDB = 32,0,30,0 %; i current bdb address | 3 
; Tig @ macro et sr Bary = $6'0,82.0°2; ! address of rab for last operation | : 
; We @ macro IRB$W_ISI = 40,0,16,0 2; ! Internal stream Identifier, the one we gave to the user ; 
; 130 @ macro IRBS$L-ATUNLBUF = 44,0,32,0 %; i address of [RAB audit trail journaling buffer ; 
: 3 1 8 macro IRBS$L_JNLBDB = 48,0,32,0 8; : address of journaling BDB for RAB operations : 
; : 0 macro IRBSL_IDENT = 52,0,32 8 %; ! process unique identifier for the IRB ; 
s T% @ macro IRB$L_RLB_LNK = 56.0 ; 0%; ! pointer to RLBs ; 
3 We 0 macro IRBS$L_NXTBDB = Y §.3 6; ! next bdb address : 
; lim @ macro IRBSL_NRP = 64, $2°0 &; ! next record pointer (relative record number) 3 
; or @ macro IRBSL-NRP_VBN = 64,0,32.0 %; ! next record pointer (relative) : : 
; Vises @ macro IRB$B_CACREFLGS = 64°0.8.0 &:; ' cacheflags for calls to getbkt,cache, etc. (indexed) F 
: 1139 +O macro IRBSB_STOPLEVEL = 65,0,8,0 %; ' Level to stop at on tree search (indexed) 3 
>: 1140 0 macro IRB$W_SRCHFLAGS = 66.0.16,0 &; ' search flags (indexed ; 
; 1141 0 macro IRBSV_POSINSERT = 66,0,1 6 2; ! position for insert : 
: 1t¢e 0 macro IRB$V_SRCHGT = 66,1 1,6 &: ! approximate search gt | 5 
: 11463 0 — macro IRBSVPOSDELETE ='66,2,1,0 %:; i position for delete _ | ; 
>; 1144 0 macro IRBSV_NEW IDX = 66,3,1,0 %; ! need to read in new idx dsc from file : 
s 1165 @ macro IRB$V_SRCAGE = 66,4,1,6 %: ! approximate search ge ‘ 
> 1146 0 macro IRBSV_NORLS_RNF = 66.5,1.0 &: ! don't release bkt on rnf error, if set é ; 
; 1147 0 macro IRBSV_FIRST_TIM_= 66,6,1,0 2%; ! flag to indicate ist time for seq. processing : 
>; 1148 0 macro IRBSV_PRM = 66,7,1,0 %: ! flag to indicate that the permanence bit in the bdb : 
:; 1149 0 macro IRBSV_DUP_KEY = 66,8,1,0 %; ! a duplicate key seen on scan of any data bucket ; 
> S90 @ macro IRBS$V_DEL_SEEN = 66,9,1,0 &: ! a deleted record has been encountered between current : 
; 3) @ macro IRBS$V_LAST_GT = 66 10°1:0 %: ! result of last search of compressed key bucket was GT ; 
; 1132 0 ! “and a next record during a $GET/$FIND | ; 
; 35 © ! should be se : : 
; 1154 Q macro IRBSL_NRP_OFF = 68,0,32,0 2%; ! next record pointer offset (relative) ‘ 
s 955 ® macro IRB$L_CURVBN = 68 6,32,6 2; ! vbn of current record (relative : 
: 1156 0 macro IRBSW-NRP_OFF = 68,0,16,0 &; ie eR ; 
; wise macro IRB$B_SPL_BITS = 68.6,8.0 %: ! bits for splitting (indexed) : ‘ 
; Vig @ macro IRB$V_BKT_NO_LO = 68.6,1,0 &:; ! low bit of bucket number processing : 
; 1159 0 macro IRBSV-NEW-BKTS = 68,1,2,6 x; 
; 1160 0 Literal IRBSS NEW_BKTS = 2; ! number of new buckets (0-3) : 
.. 3161 @ macro IRB$V_REC_W-LO = 68,3,1.,0 2%; ! if splitting at pos_insert than rec goes w/ lo : 
> 1162 0 macro IRB$V_CONT_BKT = 68,4,1,0 2%; ! middle bucket is a Continuation bkt ; 
; 63 9 macro IRB$V_CONT R = 68,5,1,0 2; ! right bucket is a continuation bkt : 
>; 1164 0 macro IRB$V_EMPTY_BKT = 68.6.1.0 &: ! bucket contains no data records F 
s 7165 @ macro IRB$V_DUPS SEEN = 68,7,1,0 2; ! dups seen on scan of bucket, any key 3 
; 1166 0 — macro IRB$SV~BKT_RO = 68,0,2,6 &; ; 
i 1167 9 Literal IRBSS_BRT_NO = 2; : 
: 1168 macro IRB$V_BIG_SPLIT = 68,2.1.0 %: : 
: 1169 O macro IRB$V_SPL_IDX = 68 9.1.0 Z; ! split up new index record and swing pointer 3 
; 1170 O macro jRESV_EnPT_SceN = 68:1,1,0 %: ! empty bucket passed over on posinsert ; 
. Tn 2 macro IRBSL_RP = 72,0,32,0 2%; ' record pointer (relative record !) 3 
: 11% 0 macro IRBS$L_RP_VBN = 72,6,32,0 %; ! record pointer (relative) ; ; 
; Ws © macro IRBSW-POS_INS = 72,0,16,0 4; ! offset for position for insert for put (indexed) | 3 
:; 1174 0 macro IRB$W_SPLIT = 74,0 18 0 Z; ! first split point (indexed) : 
; he 8 macro IRBSL_RP_OFF = 76,6 0 &: ' record pointer offset : 
3 1378 8 macro IRBS$L_LST_REC = 76.6, $0 k; ' last record address (indexed) 7 : 
eee ys macro IRBS$L_PTR_VBN =_76 qt; ! pointer vbn used by find_by_rrv (indexed) : 
; We @ macro IRB$W_RP_OFF = 76 6,16,6 x: ! record pointer offset ee ow : 
; 179 0 macro IRB$W_SPCIT_1 = 76.6,16.0 i; ! second spt it point -- 3-bkt split (indexed) 3 
; 1180 0 macro IRB$W_SPLIT_2 = 78,0,16,0 2%; ! third split point -- 4-bkt split (indexed) ; 
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x 48) 


~s 
| 
| 
macro IRBSL_OWNER_ID = 6.9 32,0 %; ! owner id used for record locks 
macro IRB$WOWN_ID = 80,0,16,0 %: i index part of process id (pid) | 
macro IRBSW_OWN_ISI = 6.0.16 0 &; : 18} value for this irab 
acro % = ; ! isi value for this process-permanent irab 
in IRB$B_PPF 1S] 0,8,0 % ij lue f i 
macro PRESS -OCNT = 58450560, 8: f } i/o gus yer count 
= . - i 
macro IRBSU-RSS = 86.0. 18.0 £; | Secard etta tren wher | 
macro IRB$L RBF = 88,0,3 %; ! user record buffer address 
macro IRBSB_MBF = 92,0 8.6 %; ' Multi-buffer i. ga user's RAB 
macro IRB$B_JNLFLG3 = 93.0,8.0 &: i TRB journaling fl 
macro IRBSV_VALID_AT = 9$.6,1.0 {; ! IRB MJB contains valid AT entry to write 


start of organization dependent fields 
i +4 
used by sequential and relative files 


i] 
1 
i] 
! 
1 
' 
macro IRB$W_CSIZ = 98,0,16,0 %; ! current record size (seq) 
' 

i] 
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relative org specific fields 
macro IRBSL_TEMPO = 100,0,32,0 % 


a ee ee ee ee ee ee eee Ss 
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macro IRB$W-ROVHDSZ = 100.0 18.0" 2; :. overhead size for record 

7 macro IRB$B_PRE_CCTL = "906 6,8,0 %: : ‘pre’ carriage control 

8 macro IRB$B-POST CCTL = 101,6,8,0 i; ! "post carriage control 

9 macro IRB$W_RTOTCSZ = 102,0 16,6 %; ! total size for record 

0 macro IRBSL-TEMP1 = 104,0,32,0 %; 

} macro IRBSB_NVBNS = 104:0.8,0 %; ! number of vbns transferred (nxtblk1) 

? ; indexed org specific fields 

5 literal IRBSK _BLN_ ioe = 196; 

6 literal IRB$C_BLN = 196; 

7 literal IRBS$S ~TRBDERA = 196: 

8 macro IRBSL_KEYBUF = 96,0,52,0 %; ! address of internal key buffer & update buffer 
9 macro IRB$L_UPDBUF = 10 6.32.0 &; ! address of internal update buffer 

0 macro IRBSL_RECBUF = 104,0 2; ! address of internal record buffer 

1 macro IRB$L_OLDBUF = 108,0 zt; ! address of internal old record buffer (updates only) 
22 macro IRBSL_RFA_VBN = 1 ; ! save record vbn for nrp data 
23 macro IRB$L_UPD_BDB = 1 ! save current bdb during insert operation 

24 macro IRBSL_LAST_VBN = : last vbn at data level for update 

25 macro IRB$W_RFA_TID = 11 ! save record id for search Sore 

26 macro IRB$W_LAST_ID = 1 ! id for ude during update (plg 3) 

27 macro IRB$W_SAVE_POS = ! save Sup cate position te Rep dat 

28 macro IRBSL_NEXT_VBN = ! save next user data record VBN Pet arp data 
29 macro IRB$L_PUTUP_VBN = ! RFA VBN of | SPUT/SUPDATE record 

30 macro IPBS$L_FIRST_VBN = ' save SIDR first element VBN for search NRP data 
31 macro IRBSW_NEXT ID = 1 ! save next user data record ID for nrp data 

35 macro iRB$W_PUTUP_ID = ! 1D of $PUT 7SUPDATE record 

3 macro IRB$W_FIRST ID = ! save SIDR first element ID for search NRP data 
34 macro IRB$L_LOCK BDB = ! lock bdb addr of level below on splits 

35 macro IRB$L_VBN CEFT = ! left vbn of split 

36 macro IRBSL_MIDR_TMP1 = ‘ temporary one tor make index 

37 macro IRB$L_VBN_RIGHT = ! right vbn of split 
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MS .OBJ JRMSINTDEF .R32;1 (9) 


ye 3 0 macro IRB$L_MIDX_TMP2 = 140.9 ee Renporery two for make index 

: 1239 0 macro IRBSL-VBN MID = 144,0,32,0 &; i middle vbn of split 

>; 1240 0 macro IRBSL_MIDR_TMP3 = 1440, ? %;  ! temporary three for make index ; 

>; 1241 0 macro IRBSL_NEXT_DOWN = 088" oO &%; ! used by search_tree 

; 4 tg 0 macro IRBSL_REC_COUNT = 148 0%; ! number of current record in this bucket (plg 3) 
: 126 0 macro IRBSL-LST-NCMP = 138 632.6 x: i address of last key with zero front compression (plg 3) 
>; 1244 0 macro IRBSL-SPL~COUNT = 156,6,32,0 &; ! number of the first record to be moved into new bucket 
>; 1245 0 { when gpUiestng indexes and SIDRs | 
> 1246 0 macro IRBSW_NID_RIGHT = 160,0 18.0 %; |! Next record ID of the right bucket 

>; 1247 0 macro IRBSWINID-MID = 162,0.16,0 %; ! Next record ID of the middle bucket 
>; 1248 0 macro IRBSW_RFA_NID = 164,0,16,0 %; ! Next record ID of the RFA bucket 
: Iso? 0 macro IRB$B_KEYSZ = 166 9.8. {: ! size of key in keybuffer ! 
; jen @ macro IRBSL_CUR_VBN = 168:0,32.0 %: ! VBN of current record (primary/SIDR) 
; Jeol © macro IRB$L_POS_VBN = 172,0,32,0 i: ! VBN of primary data record for NRP positioning | 
: 1526 0 macro IRB$L_UDR_VBN = 176,0,32,0 %; ! VBN of current primary data record 

s Yes @ macro IRB$L_SIDR_VBN = 180,6,32,0 &; ! SIDR array first element VBN of current record (SIDR) 

>; 1254 0 macro IRB$W_CUR_ID = 184,0,16,0 %; ! ID of current record (primary | 
s 295 ® macro IRB$W_POS_ID = 186,0,16,0 2%; ! ID of primary data record for NRP positioning 
; 1256 0 macro IRB$W_UDR_ID = 188,0,16,0 %; ! ID of current primary data record 
> tir = macro IRB$W_SIDR_ID = 196,6,16,0 4: ! SIDR array first element ID of current record (SIDR) 

; 1258 0 macro IRB$W-CUR COUNT = 192:0,16,0 %; ' SIDR eee count of current record (SIDR) : 

:. jee 2 macro IRB$B_RP_RREF = 194,0,8,0 {: ' Key of reference by which next record is retrieved 

; 1sey 8 macro IRB$B_CUR_KREF = 195,6,8,0 &; ! Key of reference of current record (primary/SIDR) 

; 1562 0 ‘eee MODULE SASBDEF *** 

; Weep 9 | ; 

>; 1264 0 : ASB field definitions 

>; 1265 0 ! 

; 1506 8 Asynchronous context block (asb) 

; 1268 0 : There is one asb per irab petates to by irb$l_asbaddr allocated at 

3 136° 4 connect and one per ifab which is dynamicaly allocated at stall 

; ten & : The asb$l org\st is pointed to by the arglst field of the 

; 1sf¢ S irab if the irb$v_async bookkeeping bit is set 

; igre 8 ALL of the asb$c_bln_xxx must be longuord aligned 

; 1276 0 Literal ASBSC_BID = 13; ' asb id = 13 

; Yerr ® Literal ASBSK_BLN_FIX = 48; ! block Length of fixed asb 

s Years 2 Literal ASBSC_BLN_FIX = 48; ! block length of fixed asb 

s; ery 0 ! regs 4 and 5 are saved on stack : 

; 1280 0 Literal ASBSK_BLN_SEQ = 188; ! block Length for seq org irab operations 

>; 1281 0 Literal ASBSC_BLN_SEQ = 188: ' block Length for seq org irab operations 
3 1e8¢ 0 Literal ASBSK_BLN_REL = 192; ! plock Length for rel org irab operations | 
: 1283 0 Literal ASBSC_BLN_REL = 192; ! block length for rel org irab operations 

>; 61284 0 Literal ASBSK_BLN_FAB = 352; ! block length for fab-related operations 
; 1285 0 Literal ASBSC_BLN_FAB = 352; ! block length for fab-related operations 
; 1686 0 Literal ASBSK_BLN_IDX = 512; 
; 1287 QO Literal ASBSC_8LN_IDX = 512; 

; 1288 0 Literal ASB$S-ASBDEF = 512; ( p 

; 1289 0 macro ASB$W_STKLEN = 0,0,16,0 %; ! save stack length (must be first word in block) 

; 1290 0 cr KLEN = BLN org 5 BLN Fax 

; jen @ macro ASB$W_STKSTZ = 2,0,16,0 2%; ' size of saved stack in bytes 

i 1298 9 macro ASBSB-BID = 8.0,8,0 2; i block id 

; tee macro ASB$B_BLN = 9,0 8-8 q; ! plock Length in longwords 

>: 1294 0 macro ASBSL-ARGLST = 12,0,0.0 %; 
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Literal ASB$S_ARGL 
macro ASB$B_ARGCNT 
! value will be g. 1 


macro ASB$L_STK = 
Literal ASBSS_STK = 146; 


pues MODULE $BDBDEF *** 


literal BDB$C_BID 
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macro BOBSV_AST_DC 
: uait ing stream 
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BDB field definitions 
buffer descriptor block (bdb) 


there is one bdb per i/o buffer 
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saved argument List on async irab operations 


argument count 


fab or rab address 
err routine addr 
suc routine addr 


save register area for regs 6, 7, 8, 10 and 11 


saved stack area 


( the i/o buffers exist in separate pages, page aligned) 
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bdb id code 


forward Link 

backward Link 

block i 

block Length in longwords 
bdb flags 


buffer contents valid 

buffer content dirty 

buffer has i/o in progress 
buffer has permanence factor 
buffer shared - no locate mode 
other streams awaiting 

ast has been declared for 


relative value of buffer in cache 
version type (1 = wild) 


number of streams referencing this buffer 


buffer identification number 
pointer to BLB chain for this BDB 

! of oxree of buffer in use R 
UCB$W_DIRSEQ at directory read time 
! bytes in buffer 

address of buffer 

Ist vbn in buffer 


vbn seq number of validity check vs. bcb copy 


address of last directory record 
wait thread (irab addr 
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1B: Boeri g8c 35:86:87 — VSSSSSnpADB SCAMS CBU IRMGINTDEF .R32;1 72 (0), 
' (for inter=-stream intra- 
! process lockin me ' 
macro SbeRc“Mrtoe-agon = Ac0-42.5'x, | BOPREI“ELEBentsgy gggeion ener'ee scanned 
macro BDB$W-ALLOC-SIZE = 44,0,16,0 %; { buffer allocation size 
macro BOBS. Bi B08 = 48.0.36.0 %; ! address of isam/block i/o bi journaling BDB 
macro epee. Al eps = 26-88 6°e" ! address of isam/block i/o ai journaling BDB 

cro = eV. ° 
Uteral SpB85, JNLSEO 0 19; : we tgp obih Sequence Number Block | 
° : work area 

ere BpBs8. “Vite -VBNS” 7240,8,0 4; Morente — to start of buffer | 
macro = 73,0.8,0 &; ! ! of va vbns in buffer 
macro BDB$B_PRE-CCTL = 74,0,8,0 %: ! unit record carriage control byte ( ‘pre’) 
macro BDB$B_POST CCTL = 75,60,8,0 &: ! unit record carriage control byte (‘post’) 
eecre BDBSL-CURBOFADR = 76,0,32,0 &; current buffer addr 
USeaT BBBEESEEN 8 | FSSgeh of ab glee 
Literal BDB$S-BDBDEF1 = 80 
macro BDBSL_10SB = 72,0,0,0 %; 
literal BDBSS_10sB = 6:° ! i/o status block for buffer 
macro BDBS$L_VERSION = 72,0,32,0 a ! addr of current/next directory version entry 
macro BDB$L_RECORD = 76, 6,82 0% ! address of current/next directory record 


tees MODULE SGBPBDEF *** 
GBPB field definitions | 
Global Buffer Pointer Block (GBPB) | 


' 

' 

! 

' 

: The GBPB is the process local structure used in conjunction with 

: shared giober i/o buffers. In order to minimize the impact of 
: lobal buffers on existing code, the GBPB is identical to a BDB 
' n those fields which are referenced outside of the RMS CACHE and 
RMSRELEASE routines. 


literal GBPBSC BID = 21; : gbp pb idc 
Literal GBPBS$K_BLN = 40; ' Cength ef OgSPB block 
Literal GBPBSC_BLN = 40; ! Length of GBPB block 
Literal GBPBS$S"GBPBDEF = 40; 

macro GBPBSL_FCINK = 0,0,32,0 %; ' “forward Link 

macro GBPBSL_BLINK = 4,0,32,0 2%; ' backward Link 

macro GBPB$B-BID = 8,0,8,0 4; i block id | 
macro GBPB$B_BLN = 9,0,8,0 2; : ao Length in longwords 
macro GBPBSB_FLGS = 10,0,8.0 %; { gbpb flags (use BDB flas definitions) | 
macro GBPB$B_CACHE_VL = {1 0.8.0 x; i ative cache value of this buffer 

macro GBPBS$W_USERS = 12 0.16,0°%; : nuaber of streams referencing this buffer 

macro GBPBS$W-BUFF_ID = 14.0,16.0 %; i buffer identification number 

macro GBPB$L_BLB PTR = 16,0,32,0 2; : pointer to BLB chain for this GBPB 

macro GBPB$W_NUMB = 9.0. 16.0 {; ! ! of bytes of buffer in use 

macro GBPB$W_SIZE = 8-180 z; ! ! bytes in buffer 

macro GBPBSL_ADDR = 24,0,32,0 2%; i address of buffer 

macro GBPB$L-VBN = 28,0,$2,0 x; ! Ist vbn in buffer. 

macro GBPB$L_VBNSEQNO = 32,0, 32,0 %; ! sequence number field. 

macro GBPB$L_GBD_PTR = 36.6,$2,6 x; i Pointer to the GBD for this buffer. 


pees MODULE $RLBDEF *** 
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; 18 8 RLB field definitions : 
: Veh) 8 record lock block (rlb) : 
; 1218 0 : The rlb describes one locked record for a particular ; 
>; 61414 0 : process-record stream (rab/irab). if the owner field ‘ 
> 1415 0 : is 0 then the rlb is available for use. otherwise, it ; 
> 1416 0 : describes a locked record. note: when owner is 0 the : 
; 1417 0 : record rfa fields are zeroed (0). ‘ 
Py 1418 0 ; ° 
>; 1419 0 : : 
4 1259 0 ! iP aha acide tara A were ee eB ew wee eee oe ee we + | ° 
> 1421 Q : rlb: : Link ' | ; 
: 1422 0 ' ¢wececcoceeceecocee $eweoceeececceccccecan + ; 
> 1423 0 : H rfa4 id ' ; 
: 1424 0 ' $emoennnne $eececcon $eecceccccn ewe cecccn + g 
>; 1425 0 : | flags ireserved: bln i bid | . 
: 1426 0 ' ¢ewenececnn $oeeeoeenn ¢eeeneccecn ¢eewewoecn + 3 
3 Yer YD : ' rfad { : 
: 1428 0O i ewe wm mew www ewe ww ewe w wee eee cesewcecccccs + ; 
. 1429 0 : ' owner ' : 
g 1430 0 ' ar ee Semen ewer nomen cmon etree wom mne eee oe + . 
> 1431 0 : Lksb: 1 Still to be def- | VMS status code } : 
; 1432 0 ‘ i ined status bits | ' : 
: 1433 0O FS SSS SR RK + : 
>; 61434 0 : : Lock Id. (Returned for new locks, \ : 
3 ioe? 4 : input for conversions) i : 
3 4 teem ete em ee mh er eRe me eM ee eee eee ee e 
> 1437 0 : 
>; 61438 0 Literal RLBSM_TIMER_INPROG = 1; : 
> 1439 0 Literal RLBSC_BID = 14; : lb code : 
: 1440 0 Literal RLBSM_WAIT = 1; : 
: 61441 «0 Literal RLBSM_CR = 2; : 
: 1442 0 Literal RLBSM_PW = 4; ‘ 
>; 61443 «0 Literal RLBSM_PR = 8; : 
> 1444 0 Literal RLBSM_CONV =_16; : 
> 1445 0 Literal RLBSM_LV2 = 32; : 
> 1446 0 Literal RLBSM_FAKE = 64; : 
3 ©1447 0 Literal RLBSM_TMO = 128; : 
; 1448 0 Literal RLBSK_BLN = 28; ' length of rlb : 
> 61449 0 Literal RLBSC_BLN = 28; ! length of rlb : 
; 1450 QO Literal RLBS$S RLBDEF = 28; : 
: 1451 0 macro RLBSL_LAK = 0,0,32,0 x: ! Link to next rlb_ ia ‘ : : 
§ 1028 macro AE Tenet ee 4.6. 32,0 A: } ponguord oy 4 brag to optimize clearing field ; 
; 3 macro " = " : ! more fla s : 
: 1454 0 macro RLBSV-TIMER_INPROG = 4,0,1,0 %; | Timer queued. : 
; 3433 ® macro RLBSW_RFA4 = 6,0,16,0 £: ! 3'rd word of records rfa : 
: 1456 0 offset for seq f.o. (bits 0:14) : 
; 1457 0 ; wt 0 for rel f.o. (bits 0:14) : 
; 1458 0 macro RLB$W_ID = 6,0,16,0 2; ! id for idx f.o. : 
>; 1459 0 — macro RLBSB~BID = 6.8.0 i; i block id 
; 1460 0 macro RLB$B_BLN = 36°5 ti block Length Jn ton words 1a : 
; W662 9 acre MUBSEcreacS + 11°0°8,0'x, | “Gartade“LockSngtftage™ * 
> 1463 0 = macro RLBSV-WAIT = 11,6,1,6 2; | propagation of ROP GAT bit, e é 
; 61464 0 macro RLB$V_CR = 11,1,1,0 2: ! defines lock manager mode ‘'concurrent read : 
; 1465 0 macro RLB$V_PW = 11,2,1,0 %; ! allow reader access to locked record flag : 


RIESE LS) alt oP CAN ntl LEI es - 


3 
18-Sep-1984 22:56:58  VAX-11 Bliss-32 V4.0-742 Page 31. 
1§-sep-19 135i eee OTST BASS Scams CBU IRMGINTDEF R32:1. 7%" (9) | 


macro RLB$V_PR = 11,2,1,0 %; ! used to query lock database | ; 
macro RLB$V_CONV = {j 4,1,0.%; | defines lock manager option ‘'convert' 
macro RLB$V_LV2 = 11,5, 6 x: ' sets lock as ‘‘level 2°' RU consistancy 
macro RLBSV-FAKE = 11,6,1,0 &; ! this RLB contains no lock. 

macro RLB$V_TMO = 11,7,1/ 6 %; ! propagation of ROP TMO bit 

indicate lock for write, al Low readers 

! used to query lock database for records 

macro RLBSL_RFAb = 13,0-32.0 x; ! 1'*st and 2'nd words of record's rfa 

! seq f.o. vbn 


' rel f.0. relative record number 
! idx f.0. start vbn 
identification of owning stream 


! 
macro RLBSL_LKSB = 20 6,32,6 x ! first longword of lock status block 
macro RLBSW-STATUS = 20,0,16,0 %; i VMS status code _ 
macro RLB$W_S BITS = 22,0,16,0 4%; ! various status bits ; . 
macro RLB$L_LOCK_ID = 24,6,32,0 &:; ! second longword of lksb is lock_id 


‘trey MODULE SFLBDEF *** | 
file lock block definitions 


0000 09 09 09 09 09 SI SI NINN NINO OOo 


Rk kk kk kk tk kt 
MIME EERE EEL EPL LLP PELE PPL PPP PRL LEE 
WN HD OONAUEWN (OO ONAUEWN ($OOONAULSWN—ODOONO 


; 0 ; 
; A) : 
: 0 : 
: 0 : 
; 0 : 
; 0 : 
: 0 : 
: 0 : 
; 0 : 
H 0 ; 
; 0 : 
; 0 ; 
; 0 : 
H 0 : 
: 0 ; 
: 0 : 
H 0 : 
: 0 ; 
: 0 ; 
P 8 ° 
: 87 0 Literal FLBS$C_BID = 23; ; 
; 88 0 Literal FLBSK_BLN = 20; F 
; 89 0 Literal FLBSC_BLN = 20; | ; 
; 90 0 literal FLBSS_FLBDEF = 20; i | : 
; 91 0 macro FLB$L_FCB_LNK = 0,0,32.0 %; ! pointer to next FLB 3 
; 92 0 macro FLBSL_RLB_LNK = 4,0,32,0 2%; ! pointer to RLBs ; 
: 9 8 macro FLB$B_BID = 8,0,8,0 2%; ! block id : 
; 9 macro FLB$B_BLN = 9,0,8,0 2%; ' block Length $ 
: 95 0 macro FLB$L-1FB PTR = 12,0,32.0 %: i FAB address ; 
5 macro eo = e e e ° . oc 1 6 

. FLBSL_LOCR_ID = 16,0,32,0 % ' lock id : 
3 3 ave MODULE SDRCDEF *** : 
. j P 
; 0 . directory cache node definitions | : 
; f) ; - | ° 
; 02 0 Literal DRCSK_BLN = 62; ! Length of directory cache node 3 
: st, piteres 437% ! Length of directory cache node : 
3 tera = 62; : 
3 505 0 macro DRCSL_NRTFLNK = 0,0,32,0 2; ! Link to next entry, this level ‘ 
; 1506 0 macro DRCSL_NXTBLNK = 4,0,32,0 2; : Link to previous entry, this Level , : 
Toe wRErS Bresictwnathe = fs0Ge8s%0tE, Lint to Lace‘ entey?’ nent over” Level ; 
; 1307 @ ! mote: the Links are maretgines in lru order F 
s 30 ® macro DRCST_NAME = 16,0,0,0 2; ‘ : 
; 11 6 Literati DRCES_NAME = 40; . _! directory name or device and unit : 
s 512 6 ! note: stored as counted string counting count itself : 
; 1513 0 macro DRC$W_DID = 56,0,0.0 2%; eras t : : 
; 1514 0 Literal DRCSS_DID = 6; ! file id for directory ; : 
: 1312 8 macro DRC$W_DIRSEQ = §8,0,16,0 %; ! directory sequence ! for device node : 
3 1517 0 ‘eee MODULE SRLSDEF *** ; 
; 1518 0 : : epee : 
: 121? 8 release option flag definitions : 
r} 1521 0 Literal RLSSM_RETURN = 1; 3 
s ez 0 Literal RLSSM_WRT_THRU = 2; : 
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; 25 9 Literal Bi 338 KEEP LOCK = 4; ; 
>: 1526 0 Literal RLSSM_DEQ = 8; : 
> 1525 0 Literal RLSS$S_RLSDEF = 1; R ; 
> 1526 0 macro RLS$V_RETURN = 0,0,1,0 %; : return buffer and bdb to free space lists . 
; 1360 0 macro RLS$V_WRT_THRU = 0,1,1,0 %; ! write buffer if dirty ; 
; 1528 0 — macro RLS$SVKEEP_LOCK = 6,2,1,0 4; i keep bdb locked ; 
3 1262 8 macro RLS$V_DEQ = 0,3,1,0 2%; ! always release lock : 
; 1531 0 twee MODULE SCSHDEF *** : 
: 1236 0 : ; : 
3 133? § cache option flag definitions : 
$ 1838 0 Literal CSHSM_LOCK = 1; ; 
; 336 @ Literal CSHSM_NOWAIT = 2; 3 
: sr @ Literal CSHSM_NOREAD = 4; : 
; 1538 0 Literal CSHSM_NOBUFFER = 8; : 
s Dy ® Literal CSHS$S_CSHDEF = 1; ; ; 
>; 1540 0 macro CSH$V_LOCK = 0,0,1,0 %; ! obtain exclusive access to block. : 
s 3341 @ macro CSH$V_NOWAIT = 0,1,1,0 %:; ! do not wait for block on access interlock : 
> 1542 0 macro CSH$V_NOREAD = 0,2,1,0 %; ! do not read in block ; 
; 1543 0 macro CSH$V_NOBUFFER = 0.3.1.0 %; ! obtain access to biock but don't allocate ; 
; 1544 0 : a buffer for it and don't read it | : 
; . 1369 © ! collision | : 
; 1546 0 : 
: 1547 0 'ee® MODULE SPIODEF *** : 
; 1548 0 ‘ : 
>; 61549 0 ' nea : 
; 1239 : } rms overall status bit definitions : 
; thee © Literal PIO$S_ PIODEF = 1; We ‘ : 
; . ie 8 macro PIO$V_INHAST = 0,0,1,0 %; ! set if asts implicitly inhibited : 
; 7 ® ! if reset by disabled ast, ast must be re- : 
s 1999 @ ! enabled : j : 
‘weet? macro PIO$V_EOD = 0,1,1,0 2%; ! set if searching for ‘eod' string on ‘input’ ; 
3 Wor 2 macro PIO$V_SYNC1 = 0,2,1,0 %; ! sync stalled operation using efn 27 : 
: 1238 macro PIO$V_SYNC2 = 0,3,1,0 2; ! sync stalled operation using efn 28 : 
; 1299 1*#* MODULE SFTLDEF *#* | : 
3; 6 3362 @ : definitions for rms debug failure codes 3 
3; 363 9 : : 
:; 1564 0 : : 
; 1365 @ : the following codes are for temporary bug check tests, and are ; 
> 1566 0 : internal to rms. all of the codes are negative, implying that they : 
: 1567 0 ! do not return to the caller, probably killing the process (if not é 
; 1eae 3 the entire system). : 
; 370 @ Literal FTLS_SETPRTFAIL = -1; ' set protect jen system service failed (rmObufmgr) : 
> tn f Literal FILS_STKTOOBIG = _-2; ! stack too big for asb (rm0stall) | : 
3 1376 0 Literal FIL$_BADIFAB = -3; ! invalid ifab or irab (rmOfset.rm0conn,rmOrset ,rmOpr flnm) : 
s fe © Literal FILS_GTCHNFAIL = =4; ; get channel system service failure (rm0prfinm 3 
3; re 0 Literal FTLS"BADORGCASE = -5; ! invalid orgcase value for dispatch (all rms$ : 
: 1575 0 ' level routines guecept open and create) : 
s 35% @ Literal FTL$_BADBDB = -6; ! block not a bdb (rm0bufmgr) ; 
;. err 8 Literal FILS_ASBALLFAIL = -7; ! couldn't allocate an asb (rm0stall) : 
s 578 Literal FTLS$_BADASTPRM = -8; ! ast parameter not a valid ifab/irab addr (rmO0stall) : 
;. Bry. e Literal FTL$_CANTDOAST = -9; ! couldn't redeclare ast (insf. mem.) (rm0stall) : 
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; 380 8 Literal FTLS_NOSTRUCT = =10; ! rab or fab not same on ast (rm0stall) : 
> 1581 Literal FTL$_NOASB = -11; ! asb not allocated or stream not busy on ast (rmO0stall) : 
; 1286 0 Literal FTLS_NONXTBDB = -12; : mo next bdb available (rmiseqxfr) ; 
; 1583 0 Literal FIL$-BADBUFSIZ = -13; i disk buffer size not = 512 (rmiconn) ; 
>; 1584 0 Literal FTLS_ENQDEQFAIL = -1h; ' eng or deq service failed (rm0reclck) : 
; te @ Literal FTLS_NOCURBDB = -15; ! no current bdb before calling rm$release (rmOreclck) 5 
> 1586 0 Literal FTLS_NOPARENT = -16; : mo parent lock available for global buffer section lock (rm0share) | ; 
; er ® Literal FTLS_DEALLERR = -17; ! ifab deallocation attempted with other block(s) : 
s 6 6388 6D : still allocated (rmsQclose) : ; 
>; 1589 QO Literal FTLS_IORNDN = -18; ! i/o rundown inconsistency (either ifab or irab : 
3; Tayo ®@ :, table entries not zeroed) (rmsOrndwn) , : 
e+ se Literal FTILS_XFERSIZE = -19; ! size of requested transfer not equal to ; 
; 1236 0 ' or less than the current number of bytes ; 
; He & ! in use for the bdb evanenes ; 
:; 1594 0 Literal FTLS$_NOTLOCKED = -20; ! bdb not locked and a keep lock request | : 
; 9 & ! was made on a release request. : 
>; 1596 QO Literal FTLS_NODIDORFID = -21; ! neither a fid nor a did was set upon exit from : 
; Vy ®@ ! rm$setdid (rmsOerase) : 
; 998 9 Literal TLS REL EASoalt = 5§° ! release of non-dirty bdb failed (rm0xtnd23,rms0extend) 3 
>; 1599 0 Literal FTLS_NOLOCKBDB = 3 3 ! no lock bdb found (rm0xtnd23) ; 
;- 3600 @ Literal FTLS_NONETWORK = -24; ! network routine entered but no network support in rms : 
: 1601 O Literal FTLS_LOCKFAILED = -25; ! failed to lock prolog (rmécreate) | F 
s; 61602 9 Literal FTLS_BADLEVEL = -26; ! to search by id, structure level must be 0 : 
; 1605 © Literal FTLS_ASTDECERR = -2?; ! ast declaration for file sharing failed $ 
: 1604 QO Literal FTL$_BADGBLCNT = -28; ! Zero global buffer count found when not expected (rmiconn) : 
> 1605 0 Literal FTLS-ACCNTOVFLO = -29; ! access count overflow (rm0share) ; 
; 1606 9 Literal FTL$_BDBAVAIL = -30; ! BDB was available and shouldn't have been. ; 
: 1607 O Literal FTL$_GBLNOLK = -31; ! Record locking was not set with global buffers. : 
; 1608 O Literal FTLS_LCKFND = =-32; ! A lock was found and we don't know what to do. : 
:; 1609 0 Literal FTL$_NOBLB = <33; ! No BLB was found and there should have been one. i 
>; 1610 0 Literal FTL$"NOGBPB = -34; ! No GBPB was found and should have been. : 
; ti @ Literal FTL$_NOLCLBUF = -$5; ! Should have found a local buffer. : 
3 Hb a 8 Literal FTLS-NORDNOTSET = -36; ' NOREAD not set when NOBUFFER was. : 
:.. 364 Literal FTLS_NOTGBPB = -37; ! Found an illegit BDB. : 
>; 1614 0 Literal FTL$_NOSFSB = -38 ! No SFSB when ot eset ong BLB. : 
: 315 © Literal FTLS$_LOCKHELD = -39; ! Attempted to return a BLB with lock_id neq 0 : 
s; 6M ® Literal FIL$_RLSDRT = -40; : piety buffer found in releasall. : 
: wir @ Literal FILS_ LB = -41; ! Bad BLB found in blocking AST routine. 3 
; 1618 @ Literal FTL$S-BADOWNER = -42; ! Owner field in BLB is bad in blocking AST routine. : 
: 1619 O Literal FILS"GETLKIFAIL = -43; ! $GETLKIW failed in Last chance (rmsOlstch). : 
; ies? 8 Literal FTL$_BADEBKHBK = -44; ! tried to store an invalid EBK/HBK (rmOshare). : 
; lose 8 ,*#* MODULE SBUGDEF ete : 
3 1652 0 : the following internal codes are for non-fatal bug check reporting. : 
: eee 8 ! these codes are positive byte values. they trigger a reporting action 3 
; 1626 0 ! and return to the caller with r0 set to rms$_bug+<8*the bug code>, : 
3 lost 8 which is an externally documented rms error code. : 
: 1o¢) 8 Literal BUGS_BADDFLTDIR = 1; ! DEFAULT DIRECTORY STRING INVALID (RMOXPFN) : 
s 163) @ !eee MODULE SIDXDEF *** : 
: 1036 0 4 ue : 
s 633 @ ’ IDX field definitions : 
; 1634 0 : : age : 
; 635 @ : index descriptor definition : 
: 1636 0 : : 
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> 1637 0 : An index descriptor block exists for each key of reference in use. 

3 i? S 8 they are not necessarily contiguous in memory. 

>; 1640 OQ Literal IDX$C_BID = 15; ! id for index descriptor block 

>; 1641 0 Literal IDXSM_DUPKEYS = 1; 

: 1otg 0 Literal IDXSM_CHGKEYS = 2; 

> 1643 0 Literal IDXSM_NULKEYS = 4; 

>; 1644 0 Literal IDXSM_IDX_COMPR = 8; 

> 1645 0 Literal IDXSM_INITIDX = 16; 

> 1646 0 Literal IDXSM~KEY_COMPR = 64: | 
> 1647 0 Literal IDX$M-REC-COMPR = 128; 

; 1648 0 Literal IDXSC_STRING = 0; ' string data type 

>; 1649 0 Literal IDX$C_SGNWORD = 1; ! signed binary word 
s 1690 @ Literal IDXSC_UNSGNWORD = 2; ! unsigned binary word 

3; 1631 9 Literal IDXS$C_SGNLONG = 3; ! signed binary {ong word 

; 1626 0 Literal IDXSC_UNSGNLONG = 4; ! unsigned binary long word 
:; 1655 0 Literal IDXSC_PACKED = 5; ! packed decimal 

: 1654 0 Literal IDX$C"SGNQUAD = 6; i signed binary quadword | 
; 1655 QO Literal IDXSC_UNSGNQUAD = 7; ! unsigned binary quadword 
> 1656 0 Literal IDX$C_V2_BKT = 0; ! Prologue two bucket 

5 S6or @ Literal IDXSC_CMPIDX = 1; ! Prologue 3, index keys are compressed 

>; 1658 O Literal IDXSC_NCMPIDX = 2; ! Prologue 3, index keys are not compressed 
; 67 @ Literal IDXSC_CMPCMP = 3; ! Prologue 3, primary key is compressed, data 
: 1660 0 ! _is compressed 

; 1661 O ! Prologue 3, SIDR key is compressed 

; 1666 0 Literal IDXSC_CMPNCMP = 4; ! Prologue 3, primary key is compressed, 
; 1663 0 ! data is not compressed 

; ©1664 0 Literal IDXSC_NCMPCMP = 5; ! Prologue 3, primary key is not compressed 
>; 1665 O ! data is grmprosees 
>; 1666 0 Literal IDXSC_NCMPNCMP = 6; ! Prologue 3, primary key is not compressed | 
: 1667 O ! data is not compressed | 
i: 1668 0 i Prologue 3, SIDR key is compressed 
> 1669 0 Literal IDX$K_FIXED_BLN = 44; | 
3 1670 8 Literal IDXS$C_FIXED_BLN = 44; 
: 1076 4 the following is the Length of the fixed part of the index descriptor | 
; 1674 0 | 
3 162? 4 the following is repeated for each key segment | 
: 1677 0 Literal IDX$S_IDXDEF = 48; - ; 
; 1678 0 macro IDX$L_IDXFL = 0,0,32,0 %; ! forward Link to next index descriptor 
: 1679 0 macro IDX$8-BID = 8,0.8,0 &; i block i 

: 1680 8 macro IDX$B8_BLN = 9,0,8 8 z; ' Length of block 

; = 1684 macro IDX$L-VBN = 10,6,$2,0°%; ! VBN where the descriptor came from : 
: 1086 0 macro IDX$W-OFFSET = 14,0°16,0 %; ! Offset into the block (VBN) of the descriptor 
; 1683 0 macro IDX$B_DESC_NO = 16,6,8.0 %: ! Descriptor number (index into update buffer) 
; 1684 0 macro IDX$B8_IANUM = 18,0,8,0 2; ! area number for index buckets 

: 1685 0 macro IDX$B_LANUM = 19,0,8,0 2; ! area number for lower index buckets | 
; 1686 0 macro IDX$B_DANUM = 20,0, 8 z; ! area number for data buckets 
: 1687 0 macro IDX$B-ROOTLEV = 21 0°%; i level of root 

: 1688 O macro IDX$B8_IDXBKTSZ = 6.6.8.0 £; ! size of index bucket in vbn's 

; 1689 0 macro IDX$B_DATBKTS2 = 0 8-8 2; ! size of data bucket in vbn's 

; 1690 QO macro IDX$L_ROOTVBN = 24,6, z; ! start vbn of root bucket 

: 1691 0 macro IDKSB-FLAGS = 28,0.8.0 £; i index/key flags 

3 169% 0 macro IDX$V_DUPKEYS = : 0.1.0 2; ! duplicate keys allowed 

; 16935 0 macro IDX$V_CHGKEYS = 28,1,1,0 2; ! keys can change values 
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macro IDX$V_NULKEYS = 28 g-4-9 4; 
macro IDX$SV~IDX_COMPR = 28.3.1,0 %; 
macro IDXS$SVINITIDX = 28,4.1.0 %; 
macro IDXS$V_KEY_COMPR = § 9.1.0 2; 
macro IDX$V_REC_COMPR = 1,0 %; 
macro IDX$B-DATATYPE = 5.8.6 X; 
macro IDXSB_SEGMENTS = 30, Be i; 
macro IDXSB-NULLCHAR = 31 0.8/0 %: 
macro IDX$B-KEYSZ = 32 0.8.6 &: 
macro IDXS$B_KEYREF = § 6.8.0 {: 
macro IDXSW-MINRECSZ = $4°0°16,0 %; 
macro IDX$W_IDXFILL = 36.6.16.6 %; 
macro IDX$W_DATFILL = 0,16,0 2%; 
macro IDX$B-IDXBKTYP = 40,6,8.0 %: 
macro IDX$B_DATBKTYP = 41,0,8,0 %: 
macro IDX$WIPOSITION = 44.0,16,0 &; 
macro IDX$B_SIZE = 46,0,8,0 2%: 
macro IDX$B_TYPE = 47,0,8,0 %; 

poee MODULE SUPDDEF *** 

update buffer flags 

Literal UPDSM_INS_NEW = 1; 

Literal UPDSM_OLD DEL = 2; 

Literal UPDSS_UPDDEF = 1; 

macro UPD$B_FCAGS = 0,0,8,0 X; 
macro UPDS$V_INS_NEW = 0,0,1,0 2%; 
macro UPD$V_OLD_DEL = 0,1,1,0 %; 


poet MODULE S$GBHDEF *** 
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allowed 


$ compressed 


index is not initialized 
key has been compresseu 


data record is in compressed form 
data type of key fie 
field segments 


number of key 
null character 
total key size 


key of reference(0-primary) 


minimum record 
index fill 


PLG 


size 


key segment position 
key segment size (plg 3) 


key segment datatype (plg 3) 


alternate ney 
delete this ke 
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There is a Global Buffer Header for every file's global buffer section. 
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GBHSC_BID = 17; 
GBHSM~CACHE_IN = 1 
GBHSM~ CACHE OUT 


GBHSM~STACL 
GBHSM~ THREAD 
H$M~BLB_ENQ 
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WARNING = THIS STRUCTURE MUST BE QUADWORD ALIGNED 
Block ID code for GBH 
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- type of index bucket and SIDR bucket 
- type of primary data bucket 


to be inserted from record buffer 
y value using old record 
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; 172] 0 Literal GBHSK_BLN = +e ! Length of global buffer header structure 

Beh Sg § 0 Literal GBHSC_BLN = 88; ! Length of global buffer header structure 

; is @ Literal GBHS$S GBHDEF = 88; 
; 1754 0 macro GBHSL_GBD_FLNK = -).32.0 %; ! Self relative queue header for GBD's 

:- ti 2 macro SBHS$L_GBD_BLNK = 4 0 %; 
: 1756 0 macro GBHSB_BID"= 8.0.8, £; ! Block ID | 
3; tor @ macro GBH$B_BLN = ° %; ! Length of GBH in longwords | 

; 1758 O macro GBH$W_TRC_FLGS = 10.0,16,0 %; ! Trace flags (set to frace given function) 
>; 1759 0 macro GBHSV-CACRE_IN = 10.0,1,0 %: i Cache inputs 

; 1760 0 macro GBHS$V_CACHE OUT = 16,1,1,0 4; ! Cache outputs 

: 1761 0 macro GBHSV-RLS_IN = 10,2,1,6 &:; i Release inputs 

; 176¢ 0 macro GBHS$V_RLS_OUT = 16,$,4,0 &: ' Release outputs 

: 1763 0 macro GBH$V-QIO-START = {0°4.1,0°%; i Qio inputs 

: 1764 0 macro GBHSV-QI0-DONE = 10,5,1,6 x; i Qio outputs 

: 1765 0 macro GBH$SV-STACL = 10,6,1,0 4; i Stall inputs 

> 1766 0 macro GBHSV-THREADGO = 10,7,1,0 %; i Stall outputs 

: 1767 0 macro GBHSV-BLB_ENQ = 10,8,1,6 3; i Bucket lock ENQ inputs 

; 1768 O macro GBH$V_BLB_GRANT = 10,9,1,0.%; ! Bucket lock grant status 

i 1269 0 macro GBH$V-BLB-DEQ = 10,10,1,6 x; i Bucket lock DEQ request 

; 1770 0 macro GBHSV~BLB-BLOCK = 10,11.1,0°%; | Blocking AST received | 
; wri @ macro GBH$V_F1 = 13.-1¢-1-8 %; 

: 44 64 0 macro GBH$V_F2 = 10,13,1,0 %; 

s in @ macro GBHSV_F3 = 10,14,1,0 2%: 

; 1774 Q macro GBH$V_F4 = 10,15,1,0 2%; 

: 1775 0 macro GBHSL"HI_VBN = 12,6,32.0 %; ! Highest possible VBN value (FFFFFFFF). 

; 7" ® macro GBHSL_GS_SIZE = 16,6,32.0 &: ! Size of total section in bytes. 

: 1777 0 macro GBHSL_LOCK_ID = 20,0,32,0 %; ! Lock ID of system file lock. 
: 1778 O macro GBHS$L_GS_LOCK_ID = 24,0,32,0 %; ! Lock ID of system global section lock. 
; iy 2 macro GBHSL_USECNT = 28,0,32,0 %: ! Accessor count for section. 

; 1780 0 macro GBHSL_TRC_FLNK = $2°0.32.0 2: ! Trace blocks forward Link 

s 781 @ macro GBHSL_TRC_BLNK = 36,0,32,0 2%; : Trace blocks back Link 

3 1788 0 macro GBH$L_GBD_START = 46,6,32.0 &; ! Offset to first GBD. 

; 1783 0 macro GBHS$L_GBD-END = 44,0,3¢,0 %; ' Offset to last GBD. 

; 1784 0 macro GBHS$L-GBD-NEXT = 48,0,32,0 &; ! Offset to next cache victim GBD. 

3 178? macro GBHSL_SCAN_NUM = 52,0,32,0 2%; ! Number of GBD's to scan for victim. 

; Het 4 8 Global buffer statistics section 

; 1789 0 macro GBHSL_HIT = 56,0,32,0 2%; ! Buffer found in global cache 

: 1790 0 macro GBHSL_MISS = 60.6,32.0 &: ! Buffer not found in global cache 
; im ® macro GBHSL_READ = 64,0,52,0 %; ! Buffer read from disk into cache 

>; 1792 0 macro GBHSL_WRITE = 68,0,32,0 %; ! Buffer written from cache to disk | 

: 1793 0 macro GBHSL_DFW WRITE = 72,0,32.0 ! Deferred writeback from cache to disk 

; 1794 0 macro GBH$L_CROSS_HIT = 1660 +35°0 % ' Cross process hit count. y " 
: 1795 0 macro GBH$L_OUTBUFQUO = 80,0,32,0 % ' Count of times GBLBUFQUO Limit was hit. 
; 1796 0 macro GBHSL~FILL_1 = 84,0,52,0 &; ! Force quadword alignment 
: 178. 0 eee MODULE STRCDEF ee 

; 1799 0 i : 
: 1800 6 : TRC field definitions 

;  =©1801 : 
3 1308 : Trace block structure (TRC) 

; 1804 0 : Tracing saves at specific points in the RMS code for debugging and 
; 13) 3 algorithm analysis purposes. 

: 1809 0 : eee WARNING = THIS STRUCTURE MUST BE QUADWORD ALIGNED *** 
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> 1808 0 : ; 
; 1809 8 Literal TRCS$SC_BID = 18; Trace block code : 
; 1810 Literal TRCSK_BLN = 64; NOTE: should be quadwords multiple to : 
> 1811 QO Literal TRCSC_BLN = 64; NOTE: should be quadwords multiple to : 
H slg 0 Literal TRCSS_TRCDEF = 64; | ; 
; 18135 0 macro TRCSL_FCNK = 9.0. 5-0 %; ! Trace block forward Link ; 
>; 61814 0 macro TRCSL_BLNK = 4 0 %; ! Trace block back Link ; 
: 1815 0 macro TRC$B~BID = 8,6,8,0°%: i Block ID ; 
>; 1816 O macro TRC$B_BLN = 9,0,8 8 2; ! Length of block in longwords : 
6 OWS" «6 macro TRCSW_FUNCTION = {0,0 Ye 0 %; ! Function code (see GBH definitions) : 
> 1818 0 macro TRCSL_STRUCTURE = 12,0,32,0 &; i Ifab/irab address. : 
>; 1819 0 macro TRCS$W-PID = 16,0,16,0 &; ! Process | : 
; 1820 0 macro TRC$W_SEQNUM = 18 9.46 6 x; ! Sequence number. : 
; 1821 0 macro TRC$L_VBN = 20,0,32.0 4; ' VBN requested. : 
3 ase 0 macro TRC$L_RETURN1 = 4 46.32.0 %; ! Address of caller. : 
; Ses 9 macro TRC$L_RETURN2 = 28,0,32,0 %; ! Caller's caller. . 
: 1824 0 macro TRCSL-ARGS = 32,0,0,6 %: ; 
>; 1825 0 Literal TRCSS_ARGS = 36; ! Function speci tis arguments $ 
>; 1826 0 macro TRCSL_ARG_FLG = 32,0 3 0 %; ! Argument flags (R3). : 
; 1827 0 macro TRCSL-BDB-ADDR = 36,0,32,0 &: i BDB address. 
>; 1828 O macro TRC$W_BDB_USERS = 46,6,16,0 &: ' Use count from BDB. : 
> 1829 0 macro TRCSW-BDB_BUFF = 42,0,16,6 x; i BDB buffer ID. ; 
; 1830 0 macro TRC$B-BDB-CACHE = 44,6,8-0 &: i BDB cache value. ; 
; e351 © macro TRC$B_BDB_FLAGS = 45,0,8,0 %; ! Status flags from BDB. | : 
>: 1832 0 macro TRCSL-BDB_SEQ = 46,0,32,0 %; i Sequence number from BDB. : 
: 1833 0 macro TRC$SB-BLB-MODE = 50,0,8.0 %: i Mode held in BLB. : 
: 1834 0 macro TRCSB-BLB-FLAGS = 51,6 §.0 £; i Flags from BLB. ; 
: 1835 0 macro TRC$L-BLB-ADDR = 52,6,52.0 2%: i Address of BLB. ; 
; 1836 0 macro TRCSLIBLBULOCK = 56.0.32.0 %: i Lock ID from BLB. | 
:: Sar © macro TRC$L_BLB_SEQ = 6 ,6,2.6 &; ! Sequence number from BLB. 3 
: 1838 8 ! maintain quad alignment on header : 
; 1840 0 ‘wee MODULE SGBDDEF *** : 
>; «©1841 0 : . : 
; Hk 8 GBD structure definitions : 
; ie 8 Global Buffer Descriptor (GBD) : 
> 1846 0 : There is a single GBD for every buffer in a global buffer : 
>; 1847 0 : section (used only with shared files). The GBD's themselves : 
5 1848 0 : are in the section also and Linked from a queue header in 3 
; 1360 } the Global Buffer Header (GBH). : 
: 133! ° see WARNING - THIS STRUCTURE MUST BE QUADWORD ALIGNED *** | : 
; 1888 0 Literal GBDSC_BID = 19; ! Block ID code for GBD : 
>; 1854 0 Literal GBDSM-VALID = 1; ; 
: 1833 0 Literal GBDSK_BLN = 40; ! Length of Global Buffer Descriptor structure. 3 
3 856 0 Literal GBDSC_BLN = 40; ! Length of Global Buffer Descriptor structure. 3 
; 1857 0 Literal GBD$S_GBDDEF = 40; ; . : 
s; 838 © macro GBDSL_FCINK = 0.0.32.0 % ! Forward Link - Note: This is a self relative queue : 
; 1859 0 macro GBDSL-BLINK = 40.3210 3 i Back Link | : 
: 1860 8 macro GBD$B_BID = g. 78.0 4; ! Block ID 3 
3 133) macro GBD$B_BLN = 9,0,8,0 2%; ! Block length of GBD : 
co 3 . 0 macro GBD$B-FLASS ='10,6,8,0 x; ! Buffer status flags : 
; 1863 0 macro GBD$V_VALID = 10,0,1,0 2; ! Buffer is valid. | 3 
>; ©1864 0 macro GBD$B-CACHE_VAL = 11,0,8,0 %; ! Cache value of this bucket | : 
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macro BLBSV_NOWAIT 
macro BLBSV_NOREAD 
macro BLBSV_NOBUFFE 
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Bucket Lock Block (BLB) 
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VBN of bucket the buffer describes 
VBN sequence number validity check 


Lock ID of system lock. 

Number of bytes in use 

Size of buffer in bytes 

Address of buffer relative to GBH 
Accessor count for bucket 

Rehit by same process count. 
Rehit by same locker process. 


The BLB contains the argument List for the SYSSENQ system service 
as well a pointer to the BDB it relates to and other status. 


BLBSC_BID = 16; 
BLBSM_LOCK = 1; 
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LBSM_DFW = 32; 
BLBSM_WRITEBACK = 64; 
BLBSK_BLN = 56; 
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RJB Definitions 


BLB code 


Length of BLB 
Length of BLB 


Link to next BLB 
k Link 


Block ID 

Block Length 

Control flags for BLB 
Corresponds to CSH$V_LOCK 
Same as CSH$V_NOWAIT 

Same as CSH$V_NOREAD 

Same as CSHS$V_NOBUFFER 
Lock mode for read/write 


This is lock for deferred write buffer 
The associated buffer must be written back 


Mode of current lock held. 

BOB for which this lock is held 
Address of stream owning this lock 
VBN of bucket lock (resource name) 


Resource name descriptor 
Lock status word 
Lock ID 


Lock value block 
Sequence number part of value block 
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1328087138 35:20:28 "$255$DUA28: CRMS .OBJ JRMSINTDEF .R32; 1 (9) | 
: 1928 0 : 
F 13 ? 8 } RMS Journaling Block (RJB) | : 
>; 1925 0 : This block contains the necessary control information to keep : 
3 § 8 } track of the state of journaling on this file ; 
; . | o 
: 1928 0 literal RJB$C_BID = : ; : 
; 1929 0 Literal RJBSK_BLN = 12; ! Length of RJB | : 
; 1930 0 Literal RJBSC_BLN = 12; ! Length of RJB ‘ 
: 1931 0 Literal RJBSM-RU = 1; ; 
; 1336 0 Literal RJBSM_BI = 2; : 
: 133 0 Literal RJBSM_AI = 4; é 
> 1934 0 Literal RJBSM_AT = 8; : 
: a 2 Literal RJBSM_OPEN = 16; : 
: 1936 0 Literal RJBSS-RJBDEF = 12; : 
; 1937 0 macro RJB$SQ_CRAN = 0,0,0,0 2; : 
; 1938 0 Literal RJBSS_CHAN = 8; ! Channel Block : 
: 1800 0 macro RIBSUCBICHAN = 250;16:0 3 i Channel for before tmage journat 
; macro - = 2,0,16,0 2; channel for before image journa : 
> 1941 0 macro RJBSW_AICHAN = 4,0,16,0 3; ! channel for after image journal : 
; 1306 8 macro pee aie es ok 6 ti. %; eg for audit trail journal : 
4 macro = = eoVeVe Py . oc ° 
: 1944 0 macro RJB$B_BLN = 9,0,8,0 %; ' Block Length 3 
: 1945 0 macro RJBSW_FLAGS = 16,6,16.0 %; ' Flags wor ; 
:; 1946 0 macro RJB$V_RU = 10,0,1,6 &: ! Set to indicate RU channel open : 
; 1947 0 macro RJB$V_BI = 10,1,1,0 %; ' Set to indicate BI channe! open : 
: 1948 0 macro RJB$V_AI = 19 -g-1 8 %; ' Set to indicate Al channel open : 
; 1949 0 macro RJB$V_AT = 10,3,1,0 2%; ! Set to indicate AT channel open : 
: ieee 4 macro RJB$V_OPEN = {0541.02 ! Indicates SOPEN mapping entry written | ; 
i 193¢ 0 ‘eee MODULE SMJBDEF *** : 
>; 1953 0 : ; 
; 1954 0 : MJB field definitions : 
; 1955 0 : : : 
: 1338 8 Miscellaneous Journaling Buffer ‘ 
; 1958 0 : The MJB is used for writing miscellaneous journal entries, | : 
; 1333 4 for example, extend entries or audit-trail entries. : 
; 1961 0 Literal MJBSC_BID = 24; : 
: 1206 0 Literal MJBSM_INIT = 1; : 
; 1963 0 Literal MJBSMIFORCE = 2; : 
: 1964 0 Literal MJBSM_FILE = 4; : 
: 1965 8 Literal MJBSM_SYNCH_SHARE = 8; ’ 
: 1966 Literal MJBSK_BLN = 32; ‘ 
: 1967 0 Literal MJBSC_BLN = 32; : 
; 1968 0 Literal MJBSS_MJBDEF = 32; ‘ 
> 1969 0 macro MJB$B_BID = 8,0,8,0 %; ! block id 3 
; 1970 0 macro MJB$B_BLN = 9,0,8,0 2; ! block Length in longwords ; 
>. 1971 0 macro MJBSW-FLAGS = 10,0,16.0 2%; i flags , ; 
; 19% 0 macro MJBSV~INIT = 10,0,1,0°%: i set if RJR overhead is initialized | : 
: 1973 0 macro MJBSV"FORCE = hot 104: ; set if RIR is to be written thru to journal | ; 
; macro ” = otae, Ez ! set i e operation to journ ‘ 3 
; 1376 0 macro, MJBSV_SYNCH_ SHARE ="10,3.1,0 %: ' set if file lock can't be released during | : 
: 197 i and not buffered by CJF (input to WRITE_MJB) et ; 
; 1978 0 macro MJB$B_JNL = 12°5.8-0 z; : t to CJFS_"jnl type’’ as input to WRITE_MJB : 
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: 1979 0 — macro MJBSQ_DESC = 16,0,0,0 %; | 
: 1380 0 Literal MJBSS_DESC = 6: ' RJR Concriptor used in SWRITEJNL service 
; 198) 90 macro MJB$W_SIZE = 16, 18.9 %; ! size of RJR to write 
; 1386 0 macro MJBSL_POINTER = 6,0,32,0 %; ! pointer to RJR 
: 1983 0 macro MJB$Q-10SB = 24,0,0,6 %: | 
: 1984 0 Literal MJBSS_10SB_= 8; ! 10SB to use in SWRITEJNL | 
; b+ #3 8 macro MJBST_RJR = 32,0,0,0 %; ! the journal record begins here 
: 1987 0 ' PARARAALALALALALALALALELESASARASERALERASAELA LASALLE RESALE AERA S ESSERE SERRA ESAS So | 
>; 1988 0 \« ® 
; 1989 0 ® coors ht (c) 1982, 1983 , * 
; 1230 8 ~ by DIGITAL Equipment Corporation, Maynard, Mass. : 
5 1936 0 ! * This software is furnished under a License and may be used and copied * 
; 1993 0 : oe | in accordance with the terms of_ such License and with the * 
:; 1994 0 ! * inclusion of the above copyright notice. This software or any other * 
; 1995 0 ! * copies thereof may not be provided or otherwise made available to any * 
>; 1996 0 { * other person. No title to and ownership of the software is hereby * 
; ib a4 8 * transferred. * 
: ' ® * 
>; 1999 0 ! * The information in this software is subject to change without notice * 
; 2000 0O ! * and should not be construed as a commitment by DIGITAL Equipment * 
; $00) 8 * Corporation. * 
5 '® ® 
; 2003 0 ! * DIGITAL assumes no responsibility for the use or reliability of its * 
3 sope 8 * software on equipment which is nor supplied by DIGITAL. : 
° * 
: 2006 0 i CAA RAASALALALELLALLALESALASLAELALLESESE SESE A LE AAS AAA ARRAS ASA S ERASE ESLER REESE SS SE 
. 2007 0 ' PARAARALASLALAALASLALALELESELLELALASALESASARARLAAASAAAAAASALEALAESAASESESEARESESLASESE SESE RE RRR SRSA RARER ARSE RSE SRA REARS OC 
; 2008 0O ! Created 15-SEP-1984 22:54:20 by VAX-11 SDL v2.0 Source: 15-SEP-1984 22:49:17 _$255$DUA28: CRMS.SRCIRMSFWAD 
4 2009 0 ' PRRRASAASLAALASLELAAAAAALASALALALARSESAERALARAAAAAAAAASASLEAARASSASEASAREAS ERASER AARASESEE EARLE EERE R ARERR AE RRA SESE RRA LS SD 
; 2010 0 
; 2011 Q : 
: so¢ 0 'ee® MODULE SFWADEF *** 
>; 2013 0 ! ++ 
; 2014 0 : 
; gs ! Flags 
>; 2016 0 : 
; 2017 0 ! eo 
>; 2018 0 Literal FWASM_DUPOK = 1; 
> 2019 0 Literal FWASM~NOCOPY = 2; 
; 2020 0 Literal FWASM_SL_PASS = 4: 
; 2021 0 Literal FWASMIRLF_PASS = 8; 
i 2082 0 Literal FWASM-FNA_PASS = 16; 
; 025 0 Literal FWASM_NAM_DVI = 32; 
: 3084 0 Literal FWASMEXP"NODE = 64; 
> 2025 0 Literal FWASM~VERSION = 2048; 
; $058 0 Literal FWASM_TYPE = 4096; 
5 027 0 Literal FWASM_NAME = 8192; 
: 2028 Q Literal FWASM_DIR = 16384; 
; 20¢9 9 Literal FWASM_DEVICE = 32768; 
: 2030 Literal FWASM~EXP_VER = 65 6; 
; 2031 0 Literal FWASM~EXP-TYPE = 131072; 
3 O36 0 Literal FWASM_EXP_NAME = egenes: 
; 033 0 Literal FWASM_WC_JER = 524 8 
: 3034 0 Literal FWASM“WC-TYPE = 1048 £6; 
; 035 0 Literal FWASM_WC_NAME = 2097152; | 
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constant for all flags that vary per parsing pass 
iteral FWASC_ALLPASS = 25; 


iteral FWASC_BID = 40; ' bid of fwa : 

iteral FWASC_ “MAXNODNAM = 6; ! max node name size 

iteral FWASC_MAXLNDNAM = 15; ! max logical node name size 
= 127; ! max node spec List size (concatenated node specs) 
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Literal FUASCH ALL = Sie; 
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Literal FWASC “MAXNODLST 

device name descriptor | 
} 


literal FWASC -MAXDEVICE = 255; 
Literal FWASC”MAXCDIR = 8; 
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max device name size 
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max number of concealed directories 
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06 Literal FWASC_MAXSUBDIR = max number of sub directories : 
86 Literal FWASC_MAXDIRLEN = bis. max size of total directory spec : 
6 d should be? top + subdir 39 *« 8 3 
06 ; dots between 7 : 
06 : delimiters ; 
06 ! oer renee eeeee---- 3 
34 total 321 : 
ia) The filename, filetype and fileversion descriptors MUST be contiguous ; 
sor7 file name descriptor F 
2075 Literal FWASC_MAXNAME = 39; ! max file name size — ; 
$058 Literal FWASC_MAXQUOTED = 255; ! max quoted string size ; 
2078 file type descriptor 3 
2080 literal FWASC_MAXTYPE = 39; ! max file type size 3 
2082 : file version number descriptor 2 
2084 Literal FWASC_MAXVER = 6; ! maximum version ; 
085 Literal FWASC_MAXRNS = F '. max resultant name aecing size 3 
2086 literal FWASC— =STATBLK = 10; ' define length of statistics block 3 
2087 Literal FWASK-BLN_FWA = 500; ' Length of fwa : 
spas Literal FWASC_BLN-FWA = 309 ' length of fwa 3 
2090 Literal F WASC_MAXSUBNOD ' max number of secondary (sub) node specs : 
091 i ; 
2092 ! buffers for parsed filename elements : 
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literal FWA$C _FIBLEN = 76; ! fib buffer size 
Literal FWASC_DIRBUFSIZ = 39; ! size of each directory buffer 


' 
rooted directory name buffers 

3 NOTE: These buffers must be contiguous 

364; ! Length of fwa and buffers 


titeret FWASC_BLN_BUF = 2364; i length of fwa and buffers | F 
Literal FWASK_ as $04: ! length of fwa and buffers ; 
Literal FWASC_BLN 64; ! length of fwa and buffers : 
literal FWASS-FWADEF = 2364; | ; 
macro FWASQ_FCAGS = 0,0,0,0 %; : 
eres ie FLAGS = 8: ! various parse status flags | : 
macro PASSFLGS = 6,0,8,0 %; ! flags for pass only : 
macro FUASB™ FLOFLGS = 1,0,8,6 %: ! flags for fields seen : 
macro FWASB-WILDFLGS = 2,0,6,0 &: i flags for wild cards | ; 
macro FASB _PARSEFLGS = $,6,8,0 i; ! flags for parse results | : 
macro FWASB_DIRFLGS = 4,0,8,0 2%; ! flags prineci yy directory spec : 
macro FWA$SB_DIRWCFLGS = 5,0,8,0 2%; ! directory wild f = : 
macro FWASB_LNFLGS = 6, 8,0 £; ' logical name flag ; 
macro FWASB_SLFLGS = 7,0,8,0 %; ! search List + restes dtrectory flags : 
flags for pass : 
macro FWASV_DUPOK = 0,0,1,0 %; ! discard duplicate element 3 
macro FWASV_NOCOPY = 6.4,1,0 4; ! do not copy this field : 
macro FWA$V_SL_PASS = 6,2,1,0 %: ! search List pass | : 
macro FWASV_RLF_PASS = 6.8.1.0 i; ! set if applying related file defaults 3 
macro heyy a oe a = 0,4,1,0 %: ! set if primary name string parse pass 3 
macro FWASV_NAM_DVI = 0 54 6 x: ' set if open by name block | 3 
macro FWASV_EXP_NODE = 6.4.1.0 k; ! explicit node has been seen, null or normal ; 
flags for fields seen 

macro FWASV VERSION = 9,11,1,0 2%; ' set if version seen 

macro FWASV_TYPE = 0.2.1.0 {; ! set if type seen 

macro FWASV_NAME = 0,13,1,0 %; ' set if name seen 

macro FWASV_DIR = 0,14,1,6 x; ' set if directory ‘spec seen 

macro FWASV_ DEVICE = 0,15,1,0 %; i set if 


device seen 
3 flags for wild cards | 


macro FWASV_EXP_VER = 0,16,1,0 2%; ' set if expt ic}t version 
macro FWASV_EXP_TYPE = 6.17.1.0 &: ' set if explicit type 

macro FWASV_EXP_NAME = 0,18,1,0 2%; ! set if explicit name 

macro FWASV~WC_VER = 0,19,1.0 2; ' set if wildcard (*) version 
macro FWASV_WC_TYPE = 6,20.1.0 &: ' *" type 

macro FWASV_WC_NAME = 0,21,1,0 2; ' ** name 

macro FWASV_EXP_DIR = 0, g-1-0 %; ‘ set if explicit directory 
macro FWASV_EXP_DEV = 0,23,1,0 2; ! set if explicit device 


; flags for parse results 
macro FWASV_WILDCARD = 0,24,1,0 %; ' set if any wildcard seen 
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macro FWASV_NO 
macro FWA$V_QU 


+ set if node name seen 
macro FWAS$V_GRPM 

LD 

R 

DT 


set is quoted string seen 
set if directory in Corp,mbr) format 
inclusive or of directory wild cards 


macro FWASV_Wl 


: _DIR_LVLS = 3; ! ! of directory sublevels (0 = ufd only) 
(valid only if node set and no fildflgs) 


; flags primarily for directory spec 


macro FWASV_DIR1 
macro FWASV_DIR2 


: directory wild flags 


4,0,1.0 %; ! ufd level directory or group seen 
4.1.1.0 B3 ! sfd level 1 directory or member seen 


macro FWASV_WILD_UFD = 4,8,1,0 %; ! the dirl spec was a wild card 
macro FWASV_WILD_SFD1 = 4.5.1,0 &: ! the dir2 spec was a wild card 
macro FWASV_WILD_GRP = 4,8,1,6 a ! the grp spec contained a wild card 
macro FWASV_WILD_MBR = 4,9,1,0 %; ! the mbr spec contained a wild card 


Logical name flag and miscellaneous byte 


macro FWASV_LOGNAME = 4,16,1,0 %; ! a logical name has been seen this pass 
! (note: Ehis byte is saved as context 

! when poecesn ing C.dir-list] format) k Sit a 

macro FWASV_OBJTYPE = 4,17,1,0 %; ! set if quoted string is of the 

; “es ecttypes, 0 form 

! (valid only if quoted set) : AE 

macro FWASV _NETSTR = 4,18,1,0 %; ! set if quoted string is of the 


' objecttypestasknane/... form 

! (valid on y if quoted and objtype set) , f ; 

macro FWASV_DEV_UNDER = 4,19,1,0 2%; ! device name was prefixed with an underscore 

macro FWASV_FILEFOUND = 4,20,1,0 3%; ! true if at least one file found by search 

macro FWASV_REMRESULT = 4,21,1,0 %; ! use resultant string returned by fal 

macro FWASV_SYNTAX_CHK = 4.22,1,0 &: ! syntax-only checking is requested (NAM$V_SYNCHK set) 


; search List and rooted directory flag byte 


macro FWASV_SLPRESENT = 4,24,1,0 %: 
macro FWASV~CONCEAL_DEV = 4,05,1,0 %; 
macro FWA$SV-ROOT DIR = 4,26.1,0 &; 


' search List present 

! concealed device present 
root directory present 
i 
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1 macro FWASV_DFLT_MFD = 4,27,1,0 2%; default MFD string inserted, due to ([-] 

4 macro FWASV_EXP_ROOT = 4,28,1,0 %; explicit root directory 

¢ Value for ali filename elements except node 

6 macro FWA$B_BID = 8,0,8,0 2%; ! bid 

7 macro FWASB_BLN = 9,0,8,0 2%; ' bln 
98 macro FWASB_DIRTERM = 16,0,8,0 2; ! directory spec terminator (']" or '>') 
199 macro FWASB_ROOTERM = 11 9.8.9 %;: ! root directory spec terminator ('J" or '>') 
200 macro FWASL-ESCSTRING = { 2,0 x; ! escape equivalence string : 
201 macro FWASB_ESCFLG = 12,0,8,6 q; ! set to the char <esc> if an escape string 
soe ! seen, zero orhervise 
20 macro FWASB_ESCTYP = 13,0,8,0 %; ! escape ‘type’ byte 
204 macro FWASWESCIFI = 14.0.16,0 &; i escape ifi value 
205 macro FWASQ-FIB = 16,0,0,0 2: 
206 Literal FWASS_FIB = 8; ! fib descriptor 
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207 macro FWASL_DEVBUFSIZ = 24, 35-0 x; ! device buffer size 

$08 macro FWASL_DEV_CLASS = 28,0,32,9 %; ! device class 

09 macro FWASL_RECSIZ = 3 $2°0 4; ! blocked record size 

10 macro FWASL_UNIT = 36 2.0%; ! device unit number 

11 macro FWASL-UIC = 40,0,$2,6 3; i file owner uic 

\¢ macro FWASW_PRO = 44,0 189 %; ! file presect ten word 

21 macro FWASB_DIRLEN = 46,0,8,0 %; ! overall directory spec Length 

214 macro FWASB_SUBNODCNT = 47,6,8,0 %; ! number of secondary (sub) node specs found 

215 macro FWASL-DIRBDB = 48.0.8 :0'S; i address of directory file bdb 

216 macro FWASL_LOOKUP = 32-9 0%: ! address of new directory cache node 

sie — 0 FUASL Hare 6.0.52.0 %; ! address of device directory cache node 
literal A tg DIR = 6: ! directory name scratch buffer 
macro FWASL_UCHAR = 68,0,32,0 %: ! user characteristics longword 
macro FUASH ~UCHAR = 68 9.16 QO i; 
macro FWASL_FWA_PTR = ? 0.32.0 z; ! pointer to second fwa if any (SRENAME) 
macro FWASL_SWB_PTR = 76,0,32,0 %; ! pointer to swb 
macro FWASL_BUF PTR = 80,0,32,0 2%; ! address of temporary buffer 
macro FWASL_IMPOKE_AREA = 84 6,32,0 x; | saved R11 (rm$xpfn only) 
macro FWASL_ATR_WORK = 88,0,32.0 &:; ! pointer to work area for ACP attributes 

(zero if oné not currently allocated) 


++ 

Logical name and search List fields 

Item List block for logical name services 
macro FWAST we 92 0,0,0 %; 


ee eee ee ee 


Literal FWASS ITMLST = 64: ! logical name item list 

macro FWAST 1TH. INDEX = 92,0,0,0 %; 

Literal FWASS_I1TM = {2: ! index 

macro FWAST Tk 4 TR. e104 6° 0,0 %; ; 

Literal FWASS_ITM_A = tbe" ! attributes 

macro FWAST ITM STRING = 116,0,0,0 2%; " 

Literal FWASS_ITM STRING = 12: string 

macro FWAST ITM MAX INDEX = 128,0,0,0 %; 

Literal FWASS ITM MAX_INDEX = 12;- ! max index 

macro FWASL_ ith. END ="140,0,32,0 % ! terminating longword 

i Logical name translation fields 

macro a PyrFLs « 136. 0,8,0 ! flag for which translation buffer is in use 
(0 = buf2 in = 6o4 i _use) 


macro FuAte ate “is? 9. 8,0 tee fron ofr ot translation on input to $TRNLNM 
: mode of equivalence string on output from 

macro FWASW NTs isb 18 0 %; , ! length Of equivalence spring 

macro FWASL_X tT BUEFT 160, 0,2, 0'% ! primary translation buffer descriptor 
macro FWASL— “KL TBUFF2 40739. 0% ! secondary translation buffer descriptor 


7 SLBH and SLB pointers 
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0 macro FWASL_SLBH_PTR = 168,0,32,0 2; ' current SLB List 
61 macro FWASL-SLB PTR = 17 6 33, i: i current SLB list 
$6 macro FWASL_SLBA_FLINK = 76,0. 3.6 %; |! SLBH que fwd Link 
6 macro FWASL_SLBH_SLINK = 180,0,32,0 %; ! SLBH que back Link 
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Fake SLB - NOTE: This MUST be the size of SLB$C_B 
The field FWASB_LEVEL must be at the” same offset 
as SLBSQ_LEVEL would be. (It sounds Like a real 
hack but it works very nicely) 


macro FWAS$T_SLB = 184 0, 0,0 %; 
Literal FWASS SL ! space for SLBS$C_BLN 
macro FWASB_LEVEL = 198, 0,8,0 %; i recursion level 


7 Logical name descriptor 


macro FWASQ_LOGNAM = 208.0,0,0 %; . ‘ 
} Steret FWASS_LOGNAM = 8; ! logical name descriptor 


descriptors for parsed filename elements 


The descriptors are defined as: 
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rele le lelelelelelolelelelelelelelelelaloleleleleleleleleleololeleleololololeleleoleleleleleleleleleleleolelelelel alata) 


; macro FWASQ NODE = 216,0,0,0 %; . ; 

3 296 Literal FWASS_NODE = 8; ' mode name (actually node spec list) descriptor 

3 297 ' “(the assoctated buffer is fwaSt_nodebuf) 

3 298 macro FWASQ DEVICE = 224,0,0.0 2%; , 

: 99 Literal FWASS_ DEV! ce = 8; ! device name descriptor | 
; 00 macro FWA$Q CONCEAL_DEV = 232,0,0,0 %; ; 

: Hl Literal PUASS CONCEAL DEV = 8; ! concealed device descriptor 
: 303 : directory name descriptors NOTE: The two sets of directory 

: 2304 : descriptors must be contigous 
; S302 or RMSSETDID will break 
; $08 macro FWASQ_CDIR1 = 240. -0,0,0 2%; : 

: 08 Literal FWASS_CDIR1 = ' concealed top directory descriptors 

3 309 macro FWASQ_ CBIR2 = 248, 0,0,0 %; ; 

: 2310 literal FUASS. C co4Re = ! concealed subdirectory 1 

s 2311 macro FWA$Q CBIR3 = 358° 0.0.0 %; ee 

3 $3ig Literal FWASS_CDIR3 = 8; ! 2 

3 gal macro FWASQ CBIR4 = 264,0,0.0 2; ae 

3 sale Literal FUASS 74 4 = 3: : 3 

: 315 macro FWASQ_CBIRS = 272,0,0.0 %; as 

: 316 literal PUASS. C CDIRS = ! 4 
; 317 macro FWASQ CDIR6 = 28 0.0.0 %; a 

: 318 Literal ruAss COIR 6= ! 5 

; 319 macro FWASQ CBIR? = 28 0.0.0 %; ate 

: 320 Literal ruASS. CDIR7 = ! 6 
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$ 1 0 macro FWASQ CDIR8 = te Hida x; 

5 ¢ 0 Literal FWASS CDIR8 = 8: CF 

; 0 macro FWA$SQ DIR1 = 304,0,0,0 &; 

; 4 0 Literal FWASS DIR1 = 8; ! top level directory descriptors 

3 5 0 macro FWASQ DIRe = 312,0,0.0 2%; 

3 6 0 Literal FWASS DIR2 = 8; ! subdirectory 1 

: 7 0 macro FWASQ DIRS = 320,0,9,0 2%; 

; 8 0 Literal FWASS_DIR3 = 8; a a | 
: 9 0 macro FWASQ DIR4 = 328,0,0,0 %; 
; 0 0 Literal FWASS DIR4 = 8; 2 
: 331 0 macro FWASQ_ DIRS = 336,0,0,0 2; 

: 3 0 Literal FWASS_DIRS = 8; 4 

; 0 macro FWASQ DIR6 = 344,0,0,0 2%: 

3 § 34 0 Literal FWASS DIRG = 8; .. "4 

: 335 0 macro FWA$Q DIR7 = 352,0,0,0 %; 
; 2336 0 Literal FWASS_DIR7 = 8; oe 

, gs & macro FWASQ DIR8 = 360,0,0,0 %; 
; 2338 O Literal FWASS _DIR8& = 8; Ried . 

: 2339 0 macro FWASQ_NAME = 368,0,0,0 %; 

; 2340 0 Literal FWASS_NAME = 8; ! file name descriptor 

: 2341 0 macro FWASQ QUOTED = 368,0,0,0 %; 

: tok} 0 Literal FWASS_ QUOTED = 8; ! quoted string descriptor 

>; 2343 0 macro FWASQ TYPE = 376,0,0,0 2%; 

; 2344 0 Literal FWASS — = 8: ! file type descriptor 

: 2345 0 macro FWASQ VERSION = $84,0.0,0 %; 

: 2346 0 Literal FWASS_ VERSION = 8; ' file version descriptor 

> 2347 0 macro FWASQ_ RAS = 396 -0.0.0 x; 

>; 2348 O Literal FWASS_RNS = 8; ! resultant name string descriptor 

> 2349 0 macro FWASQ_SARFIL = 400,0,0,0 %; 

3; e200 © Literal FWASS SHRFIL = 8; ! shared file device descriptor (readable form) 

: 2351 O macro FWAS$SQ SARFIL_LCK = 408,0,0,0 %; 

: $326 0 Literal FWASS_SHRFIL_LCK = 8; shared file device descriptor (unreadable form - used for lock name) 

: 2353 0 macro FWASQ_AS SHRFIC = 416,0,0,0 2; 

; 2354 0 Literal FWASS_AS SHRFIL = 8; ! secondary device descriptor (readable form) 
; dg © macro FWAST_STATBLK = 424,0,0,0 2%; 
: 2356 0 Literal FWASS STATBLK = 10; 

; 2357 O macro FWASL_SBN = 424,0,32,0 2: ! starting lbn if contiguous 

; $326 8 macro FWASL_HBK = 428,0,32,0 2%; ! high vbn 

; 2360 0 ! node descriptors 

; el 8 ! 

; $306 0 macro FWASQ_NODE1 = 436,0,0,0 2%; 

s 23 0 Literal FWASS_NODE1 = 8; ! primary rode spec descriptor 

3 tre 0 ! (the assocTated buffer is fwa$t_nodebuf) 

: 365 0 macro FWASQ NODE2 = 444,0,0,0 i; 

3 206 0 Literal FWASS_NODE2 = 8; ! secondary (sub) node spec descriptors (1-7) 

; 3 0 macro FWASQ_NODES = 452,0,0,0 2%; A 

: 8 0 Literal FWASS_NODE3 = 8; ' note: bytes 2-3 of each of these descriptors 

: 352 0 macro FWASQ NODES = 460,0,0,0 2%; ; 

; 0 0 Literal FWASS_NODE4 = 8; ! contains the flags word that is output 

5 371 0 macro FWASQ_NODES = 468,0,0.0 2; : 

: 35 0 Literal FWASS_NODES = 8; ' from nxtfld subroutine in rmOxpfn 

3 373 0 macro FWA$SQ NODE6 = 476,0,0,0 2; 

3 374 0 Literal FWASS_NODE6 = 8; ! note: fwa$q_nodel thru ‘fwa$q_node8' 

; 375 0 macro FWASQ NODE? = 484,0,0,0 2; : : 

; 376 0 Literal FWASS_NODE7 = 8; ! describe the same string as does 

: 377 0 macro FWASQ_NODE8 = 492,0,0,0 2; 
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; 78 Liter} 4 ae NODES = !  fwaSq_node 
: 79 6 macro FWAS ETBGUE = by 0,0,0 %; ™ 
; 80 0 literal FYASS FIBBUF = 76; ! fib buffer 
3 81 macro FWAST RAM FID = 576.0,0,0 %: 
: 8 Literal PUASS _RAM “FID = 6; ! saved fid for rename directory check 
3 380 8 directory name buffers 
3 ee 8 NOTE: These buffers must be contiguous 
; 88 0 macro FWAST qty ; aus: 6,0,0 % 
3 3 89 0 Literal west e pinie ! ufd level (or group) 
: 90 0 macro DIR BUF : 621 3 0.0 % 
: é 91 0 titeral IUASS D1R¢B 36." ! 1st sfd level (or member) 
; 39¢ 0 macro FWA$T DIR By a t sede 6,0,0 %; 
; 393 @ Literal ruASS DIRS ! subdirectory 2 
>; 2394 0 macro FWAS DIRGBUF 699 %, 0,0 %; 
; 2395 0 Literal ruass Bisa ! subdirectory 3 
: 2396 0 macro FWAST_DIR SBUF ; 73 6, 0,0 %; 
; 2397 0 literal FuAss DIR = = 3h ! subdirectory 4 
: 2398 0 macro FWAST_DIR6BUF 4 7,0,0,0 % 
>; 2399 0 Literal PWASS DIR6BUF = oe ! subdirectory 5 
: Sept 0 macro FWAST Wy # : 816, 6, 0,0 % 
: 401 0 Literal PUASS.D as8, ! subdirectory 6 
> 2402 0 macro FWAST, DIRBGUF- 4b. 0,0 %; 
: 2403 0 Literal ruASS DIRBBUF ! subdirectory 7 
: 2404 0 macro FWAST_CBIRIBUF = ri 0, 0,0 %; 
: 2405 0 Literal PWASS CDIRIBUF = 3 ! ufd level (or group) 
: 2406 0 macro FWAST CDIR2BUF = 933 6. 0,0 %; 
: 2407 0 Literal FWASS CDIR2BUF = 39: ° ! 1st sfd level (or member) 
> 2408 0 macro FWAST CBIR BUF = 97 6.0.0 %; 
: 2409 0 Literal FWASS CDIR3BUF = 39;° ! subdirectory 2 
; 2410 0 macro FWAST CDIR4BUF = 1011 -0,0,0 &%; 
; 2411 0 Literal PUASS coiRNOUF s = 39; ! subdirectory 3 
; g01g 0 macro FWAST_CBIR z 1050, 0,0,0 %; 
:; 2413 0 Literal PUASS CDIRSBUF = 39; ! subdirectory 4 
> 2414 0 macro FWAST CBIR6BUF = 10 9.0.0.0 %; f 
: 2415 0 Literal FWASS_CDIR6BUF 9: ! subdirectory 5 
:; 2416 0 macro FWAST CBIR/BUF = 11 8.0.0.0 %:; 
:; 2417 0 Literal FWASS CDIR7BUF 9; ! subdirectory 6 
; 2418 0 macro FWAST CBIR8BUF = 117;0,0,0 8; : 
3 sel? 2 Literal WAS. (DIRSBUF = 39; ' subdirectory 7 
: 421 0 i NOTES: 1. _ following buffers must be contiguous as eventually the 
3 $5§ 8 type and version are appended to the name string 
3 rey 0 i 2. The name buffer and the type buffer must be 1 byte larger then 
: 425 0 i the max name and type size (resp) because xpfn writes the 
: : $ 8 name and type terminators in the buffer at the end of the string 
3 428 8 macro FWAST gh = 1206,0 0,0,0 &; ; 
: 429 Literal FUASS NAAR ! file name/quoted string buffer 
: 2430 0 macro FWA$T TVPEBUF : = 1462, ei. 0.0 %; 
3 a3! 0 Literal fuss ! file type buffer 
> : 0 macro FWA VERBUF = "1502. 6.0.0 %; 
; 43 literal WAUASS.V Gi ! file version buffer | 
> 2434 0 macro FWAS$L "Oreste « 1508,0,32,0 %; i ucb$l_sts field for prim device 
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43; ' 10 
20; ! length of SLBH 


; 435 0 macro FWASB_UNDER_DEV = 13) 0.8.0 %; ! character ‘'_"' stored here 
: 4 § 8 macro FWAST DEVICEBUF = 1515,0,0,0 %; 
cs Literal FWASS DEVICEBUF = é S; ! device name buffer 
3 438 0 macro FWAST CBEVICEBUF = 1 : 0,0,0 %; 
: 439 0 Literal FWASS CDEVICEBUF = é; ' concealed device name buffer 
; 440 0 macro FWA$B_UNDER NOD = ge 8-80 %;  ! character ‘_"* stored here 
: 441 0 macro FWAST_NODEBOF = 2025,0,0,0 %; 
: 2642 0 Literal FWASS NODEBYF = 127; ! mode name buffer 
: 443 0 macro FWAST WILD = TF .0,0,0 %; 
: itera i") WILD = ' scratc e use y 
tae 8 t } FWASS WILD = ' ! h field d by RMOWILD 
3 size = coun 
: oe$ 0 name 39 
3 447 0 : .dir;* 6 
: 2448 0 ! spare 2 
: step 0 {( = =  « sau eseonaene 
2 450 0 ! 48 
;. 21 @ macro FWAST_SHRFILBUF = 2200,0,0,0 %; : 
$ sies 3 Uicered Funes pier taut 16; 046 0.0.0 x: shared file device id buffer (readable form) 
° mac ro = y ra eo @ 
: size 8 Sh ME Med a 2930°h 0.0 2 | shared file device id buffer (unreadable form - used for lock name) 
; macro = -0,0,0 %; 
: sez8 8 Literal FUASS As SHRr ILS = 1 secondary device id buffer (readable form) 
3 macro = -0,0,0 &; 
>; 2458 0 Literal FWASS BIJNL = F ! descriptor of BI journal name 
; 2459 0 macro FWASQ ATJNL = 2256,0,0,0 %: 
3 seey 8 macro, FUASOSATINL = Sori. 0.0.0 § ! descriptor of AI journal name 
3 macro = ; 
>; 2462 0 Literal FWASS_ATJNL = 8; ! descriptor of AT journal name 
> 2463 0 macro FUAST BIACE = = 2278, 0,0,0 %; ) 
: 2464 0 Literal ruASs BIA *.§s ! BI journal name ACE 
> 2665 0 macro FWA$T BTNLN “2576,0,0,0 %; 
3 466 0 Literal PUASS 2 JNLN = 16; 
: 2467 0 macro FWA$T ATACE = 2292,0,0,0 %; 
; 2468 O Literal PUASS AIACE = 20; ' Al journal name ACF 
> 62469 0 macro FWAST ATJNLN = 2296,0,0,0 &; 
; 2470 0 Literal FWASS AIJNLN = 16; 
; 67) @ macro FWAST_ATACE = 2312,0,0.0 2; i 
: 2472 0 literal FWASS_ATACE = 99; ! AT journal name ACE 
: 2473 0 macro FWAST _ATJNLN = 2316,0,0,0 %; 
: 2474 0 Literal FWASS_ATJNLN = 16; 
; 2475 0 macro FWA$T IDACE = 2332,0,0.0 %: 
; 2676 0 Literal FWASS_IDACE = $6 ' Journal ID ACE 
: 2677 0 macro FWAST_JALID = 2336,0,0,0 2%; 
: $078 0 Literal FWASS_JNLID = $8 ' complete journal ID 
: 479 0 macro FWAST VOLNAM = 2336,0,0,0 2%; ‘ 
3 sano 4 eect atte LN tee ox ' volume lable of media file resides on 
; macro -0,.0,0 %; 
3 re) 0 Literal PUASS-F = 6; ! file-id 
; 483 0 macro FWA$Q 1D DATE = 2356. 0,0.0 %; LG 
: ret 8 Literal PuAss -ID_DATE = id time stamp 
3 2086 0 ‘eg MODULE SSLBHDEF *** 
3 488 5 SLBH - Search List Header Block 
3 0 
3 0 


i 
i 
literal SLBHSC BID = 
Literal SLBHSK_BLN = 


$ep-1984 VAX-11 Bliss-32 V4 49 
Hose en 158d 35:86:57  “SSSSSDUAZBSLRMS GAY IRMSINTDEF .R32s1 oo" (0), 


> 2492 0 Literal SiBHSC_BLN = 20; ! Length of SLBH 

$ 4&9 8 Seal uh ‘a SLBHDEF = 20; 

; 494 macro FCINK = 0,0, 8 %; ' forward Link 

; 495 0 macro StBHSt “BL INK = 4,0, %; ! backward Link 

: 496 0 macro SLBH$B8-BID = g.0, 10 &; i block 1D 

; 49 macro SLBHS$B_BLN = ° 4; ' Length 

; 498 macro SLBH$B_PASSFLGS = {0,0.8,0 %; : lags for FUASE PASSFLGS 

; 499 90 macro SLBH$B_STR_LEN = 11,6,8,6 2: ! string Length 

: 2500 0 — macro SLBHSL-SLB~QUE = 12.0. $0 i; i ptr to SLB q 

; 501 0 macro SLBHSL_NAM_FNB = 16,0,32,0 %; ! saved ENB fom. RLF file 

; 20g 8 macro SLBHS$T “STRING = 20,6,6,0°2; ! start of string 

; abe 8 pease MODULE SSLBDEF *«* 

3 209 8 SLB - Search List Block 

: 508 0 literal SLBS$C_BID = 41; ! 10 

; 2509 0 Literal SLBSM_REALSLB = 1; 

; 2510 0 Literal SLBSK_BLN = 24; ' Length of SLB 

3; gh ® Literal SLBSC_BLN = 24; ! length of SLB 

: s2i¢ 0 hey | oge8s, SLBDEF = 24; 

; 2513 0 macro FCINK = 0,0,32.0 %; ! forward Link 

; 2514 0 macro St pst ne LINK = 4,0,32,0 %; ' backward Link 

: 2515 0 macro SLB$B-BID = 8,0,8.0 &; i block ID 

; 2516 0 macro SLB$B_BLN = 9,0,8,0 2%; ! Length 

: 2517 0 macro SLBSB-FLAGS = 10,0,8,0 x; i flags 

>; 2518 0 macro SLB$V_REALSLB = 10:0.1.0 %; : ‘Rest SLB as opposed to the fake FWA one 
; 2519 O macro SLBSB_LEVEL = 11,0,8,0 2%; ! recursion level 

; 2520 0 macro SLBSL_INDEX = 12,0 32,0 &; ' translation index 

$ oe) ® macro SLBSL_MAX_] nog = 16,6,32,0 4; ! max translation index 

: $256 8 macro SLBSL_ATTR = 20,0,32,0 2%; ! attributes flags 

3 2524 0 !'eee MODULE SFSCBDEF *** 

:; ee. © ' 

3 $258 FSCB - FileScan control block 

$256 8 This block is passed to PARSE_STRING from XPFN and RMSSFILESCAN 
3 52% 0 : : 

s 31 9 : The descriptors are defined as: 

3 S256 0 ! 

: 2533 0 F_un titania daniairinatapiaiaiinanatianneiaiammiideatiiis 

>: 2534 0 ! H flags H Length } 

: 535 6 i t ssssateteetisaenensiees srenetensnibniedpeninenindecamneneninannennn maeannnmianiipedsinn ' 

3 536 : : address : 

: 537 0 | san eanepetmenntenietnenetetenma mean anenneenmnmaNS 

: 538 0 : 

3 539 0 : 

: 540 0 : : 

: rh 4 descriptor flags 

: ak 0 : These flags are used through out the RMS file name parsing routines. 
3 ae 8 The flags can be found in all of the field descriptors. 

; 266 0 : NOTE: The flag ELIPS must be the first bit in the second word. 
tS 8 : It is referenced this way in RMOWILD and other places 
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CBSV_ROOTED 
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CBSM_NODE 
CBSM DEVIC 
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BSM_DIRECTO 
NAME 
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SM~TYPE 
BSM~VERSION 
BSC~MAXNODE 
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6:0,0.0 %; 
yr 
8,0,0.0 %; 


elipssis was detected in directory (dir) 
a wild card was detected (dir,name,type,ver) 
access control string in node name (node) 
uoted file spec (name) 
ield was null (terminator only) (all) 
password masked out (set in xpfn) (node) 
group,member format directory (dir) 
minus directory field (dir) 
name was concealed (dev) = 
MFD directory (set in xpfn) (dir). 
directory was a root directory (dir) 


max number of node descriptors 

max number of root descriptors 

max number of directory descriptors 
field flags 


number of nodes in spec. 

number of root directories in spec 
number of directories in spec 

full file spec 

full node List spec 


device spec 
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8; ! full root directory List spec 
6,0,0,0 %; 
gs ! full directory List spec 


Literal FS 
macro FSCB 
literal FS 


ts 


3 
0, 
: ! file name 
v0, 


! file type 


now-o- O~< tts 


ee ! file version 
0.6, 0%; 


b.0, 0 %; 
b.0, 0 %; 
§.0, 0 %; 
0.0.0 


we 
! the NODEn descriptors must be contiguous 
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macro FSCB$Q_NUODE4 = 
Literal FScass NODE4 
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macro FSCB$Q_NODE7 = 
Literal FSCBSS_NODE7 = 8; 

macro FSCBS$Q NODES = 124,0.0,0 
macro FSCB$Q_ROOT1 = 132, 0,0,0 


acro FSCB$Q_ROOT2 = 140, 0,0,0 
literal “FSCB8s Saree’ 5 
148, 0,0,0 


literal itt ROOT3 = 
macro FSCB$Q_RO0T4 = 156, ‘0, 0.0 


macro FSCB$Q_ROOTS = 1640, 0.0 
macro rs ass R T6 = 172, 0,0,0 
macro = 180, 0,0,0 
ped Terese k ROOT? = 8; 

macro FSCB$Q ponte s 18 20. 0,0 
macro FSCB$Q_D meet v1 2 = 196, 0, 0,0 


Literal FSCBSS_D 
macro FSCB$Q_DIRE 204, 0, 0,0 
a a Tee 


Literal FSCBS 
Literal FScess D 
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! the ROOTn descriptors must be contiguous 
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! the DIRECTORYn descriptors must be contiguous . 
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macro Fscase Q DIR 
Literal Fscess D 
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; 663 0 

: $68 0 ‘aia MODULE S$SWBDEF *** 

; 008 0 } Directcry string work buffer for wild card directory processing 

; 668 0 Literal SWBSM_ELLIPSIS = 1; 

: 669 0 Literal SWBSM_BOUNDED = 2; 

; 2670 QO Literal SWBEM_WILD = 4; 

>; 62671 0 Literal SWBSM~DELIMITER = 8; 

; sore 0 Literal SWE&SM_TRAVERSE = 16; 

; 673 0 Literal SWBSM_FIRST = 32; 

H sore 0 Literal $M_ELLIPSIS rat = 64; 

; 675 0 Literal SWBSM_VALID_DIB = 128; 

; sore 0 Literal SWBSC_BID = 42: ! 1d 

: 2677 0 Literal SWBSK-BLN = 328; 

; 2678 O Literal SWBSC_BLN = 328; 

>; 2679 QO ! wild dir spec 

; 2680 QO Literal SWBSS_SWBDEF = 328; 

>; 2681 0 macro SWBSB_FCAGS = 0,0,8,0 %; | flags (must be first) 

: 2682 0 macro SWBSV-ELLIPSIS = 6,6,1,6 2%; i ellipsis 

; 2683 0 macro SWBS$V_BOUNDED = 0 1,1,6 x; ! ellipsis bounded 

> 2684 0 macro SWBSV-WILD = 0,2,1,0 4: ! wild name : 

; 2685 0 macro SWBSV-DELIMITER = 6,3,1,0 %; i following delimiter 

>; 2686 0 macro SWBSV_TRAVERSE = 0 41,6 2; ! should skip subtree 

>; 2687 0 macro SWBSV_FIRST = 0,5 1,6 &:; ! first time through 

: 2688 0 macro SWBSV-ELLIPSIS ExisfS =0,.6.1,0 %; |! dir spec contains ... 

; 2689 0 macro SWBSV_VALID DIB = 0,7,1,0 %: ! FIB DID is valid 

; 2690 0 macro SWB$B_PATLEN = 1,0,8.6 &; ! Length of current token 

s 2691 9 macro SWB$B_PPOS = 2,0,8,0 %: ! position in pattern 

>; 2692 0 macro SWB$B_TOKENS LEFT = 3,6.8,0 %; ! number of non ... tokens left 

>; 26935 0 macro SWB$B_MINIMUM = 4,0,8,0 %; ! minimum level for success 

> 2694 0 macro SWBSB_MAXIMUM = 5,0,8,0 2%; ! maximum level for success 

; 2695 0 macro SWBSB_FIRST_E = 6,0,8,0 2: ' token ! of first ellipsis 

> 2696 0 macro SWB$B_DIRWCFLGS = 7,0,8,0 %: ! FWASB_DIRWCFLGS on entry 

; 2697 0 macro SWB$B_BID = 8.0.8.0 %; ! block 1D 

; 2698 0 macro SWBS$B_BLN = 9,0,8,0 2; ! Length 

: 2699 0 acro SWBSQ-PATTERN = 12,0,0.0 %; 

; 2700 0 Literal SWBSS_PATTERN = 6; ! descriptor of pattern 

; 2701 0 macro SWBSL_SCRATCH_PAT = 30-032 0 %; scratch copy of first longword 

: 9702 0 macro SWBST-SCRATCH-BUF = 24 9.0.6 %; ; 

; ers @ Literal SwBSS_SCRATCH BuF = 48: scratch temp buffer (same size as FWAST_WILD) 
: $i 0 macro SWB$T PATTERN BOF = 72 9 0.0 %; 

i 3705 0 Literal SWBSS_PATTERN BUF = 256; should be: FWASC_MAXDIRLEN-2, 

: $706 8 ' (ARRAS SLELALEELASALELSL ELE LER ESE EERE RRR RRA R RA RAARAREA REARS RS ER ERR ASRS ASSES SE SG 
; 2708 O ie * 
; 2709 0 ! Lopyr ions (c) 1982, 1983 * 
: ny 3 by DIGITAL Equipment Corporation, Maynard, Mass. ~ 
; re 0 ! # This software is furnished under a license and may be used and copied * 
: 713 (0 ! my in accordance with the terms of such License and with the * 
: 714 0 ! # inclusion of the above copyright notice. This software or any other * 
: 715 0 ! # copies thereof may not be provided or otherwise made available to any * 
; ce 0 ! * other person. No title to and ownership of the software is hereby * 
; sole 8 ; transferred. . 
; 2719 0 ! # The information in this software is subject to change without notice * 


2 V4.0-74 P 
fis OBJ JRMSINTDEF .R32;1 at 35 


4 
15-Sep-1984 $5262 VAX=11 Bliss-32 V4.0-742 Page 53) 
1 984 H RMS .OBJIRMSINTDEF .R32;1 ) 


ss- | 

-Sep-1 56:5 ~8255$DUA28 :[ 
; 0 ! * and should not be construed as a commitment by DIGITAL Equipment * 
: 0 } * Corporation. . 
; \ 
: ‘ : * DIGITAL assumes no responsibility for the use or reliability of its * | 
: 8 . software on equipment which is not supplied by DIGITAL. - 
: 0 ' PRRRASALAALALELLALALASALALELALAE RESALE AER E LARA S ARAL EAE RASA RAE E ESE RAS ES ER ESSA SS | 
$ 0 ! PARR AAAAALAALALALAAAAAAALALALASALEASALAAALARALASEALEAAAESE SEER EASA SER ERE SEARS E ASAE SEER SEES EEE SESE EEE ERS EERE ECCS 
. 72 0 ! Created 15-SEP-1984 22:54:43 by VAX-11 SDL V2.0 Source: 15-SEP-1984 22:49:34 _$255$DUA28:CRMS.SRCIRMSSHR. 
; 2 0 ' PARRA RASALALALALAALAAALALESELEASELESEASELALASALAL AS ASA REALE E REE E REE E RSE E EEE R EE ERE REESE SEE EERE EEE S EEC CECE EEE 
; 0 
3 0 
: 0 tex® MODULE SSFSBDEF *** 
2 0 Literal SFSBSC_BID = 16; ! sfsb code ; 
; @ 0 Literal SFSBSC_FIX_LEN = 10; ! 10 bytes of fixed size data 
ys 0 Literal SFSBSK_BLN = 68; ! Length of sfs 
; § 8 Literal SFSBSC_BLN = 68; ! Length of sfsb 
: § keep the next two fields in same order as they are in FAB | 
: 2 0 Literal SFSBSS_SFSBDEF = 68; 
.s¢€ 0 macro SFSB$Q FILENAME = 0,0,0,0 %; ; : 
; ¢ 0 Literal SFSBSS_FILENAME = 8; ! descriptor of shared file resource name. 
; @ 0 ! resource name is NODE, DEVICE, FILE_ID 
ae 0 ! points to RESNAM, below 
cud 0 macro SFSBSW_NAME LEN = 0,0,16,0 %; ! subfield to address descriptor length field 
.. = 0 macro SFSBSL_ADDRESS = 4,6,32,6 %; ! subfield to address descriptor address field 
; ¢ 0 macro SFSB$B_BID = 8,0,8,0 %; ! block i 
rig 0 macro SFSBS$B_BLN = 9,0,8,0 2%; ' block Length in longwords 
; 2 0 macro SFSBS$B-CURMODE = 10,0,8.0 x; i Mode of the current lock | 
: « 0 macro SFSB$B_PREMODE = 11,0,8,0 %; ! Mode of the previous lock 
ee 0 macro SFSB$T-RESNAM = 12,0,0,6 &; | 
; 2 0 Literal SFSBSS_RESNAM = $2; =. bytes for name of shared resource 
“ae : 0 macro SFSBSL_FAC_CODE = 12,0,32,0 %; ! RMS facility code (RMS$) 
ee 0 macro SFSBSWIFID-NUM = 16,0,16,0 x; i file id word one 
r 0 macro SFSBS$W_FID_ SEQ = 18,0,16,0 2; ! file id word two 
 £ 0 macro SFSB$W_FID_RVN = so°pge 0 %; ! file id word three 
e 2 0 macro SFSBST-DEV-NAM = 22 9.0.6 %; alee 
i. < 0 Literal SFSBSS_DEV_NAM = ‘ : ! 22 bytes remain to hold device id (node$device_name) 
i 2 0 macro SFSBSL_LRSB = 44,0,32,0 %; ' lock status block 
: 2760 0 macro SFSBSW"STATUS = 44,0.16.0 tL; i VMS status code | 
2 i] macro SFSB$W_S_ BITS = 46,0,16,0 %; ! various status bits ; 
; ¢ 0 macro SFSBS$L-LOCK_ID = 48,6,32,0 &; ! second Longword of LKSB is the lock id 
3 § 0 macro SFSBSL_LVB = 52,0,0,0 %; 
; 0 Literal SFSBSS_LVB = 16; ! lock value block 
— = 0 macro SFSB$B_FAC = 2¢-8. 0 2%; ' fac bits from FAB ; 
; 66 0 macro SFSB$B_SHR = 53,0,8,0 2%; ! sharing bits (from FAB SHR field) 
3 OT 0 macro SFSBSL-HBK = 60,0.32,0 &; i high block 
3 8 macro SFSBSL_EBK = 64,0,32,0 2; ! end of file 
; 8 seee MODULE $GBSBDEF *** | 
; 0 GBSB field definitions - global buffer synchronization block 
: § : The GBSB contains the information necessary to determine if a 
an 0 4 qietet section is already open for a file on a given node, and 
: £ 0 : s used for synchronizing access to the global section. 
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<2 @ ! 
: girs 8 b b fwomoawemrenzonas FILE.NAME eeeeeaanaaneeaen + 
: gbs ' ' 
; 2780 0 ! f 
> 2781 0 . o . “PSS eeetialhbtenteabiameiinen iciaienniaiiiniiie 
: sfee 0 ' { FLAGS ' “CURMODE ' BLN ' BID ' 
: 278 0 ' ¢ewerwe enw eec wooo ee sre foun. cme ece ¢ ewe eceeecean + 
:; 2784 0 ! H } 
; 2785 0 ' H Resource Name H 
; 2786 0 ' i : 
: 2787 0 \ poececccoeeccececce Pecwencccceccccccocce + 
s 2788 90 ' Lksb: | Still to be def- | VMS status code | 
; 2789 0 ' | ined status bits H ' 
> 2790 0 Re ey Pr achat elie LT SPO a + 
3 2791 O ' | Lock Id. (Returned for new locks, ' 
; e792 0 ! H input for conversions) ! 
: 2793 0 i a areal aah tepelindnarhitndilndicheninednmn On + 
; 2794 +O ' Lkvb: ' GBC H GBREF ' 
> 2795 0 aaa + 
; 2796 0 ' H GBS = size of GS in bytes ' 
; 2797 0 [| j(.j}x = = ptr eoneeseeeeeeenseeeeee + 
: 2798 O ‘ ' spare H 
; 2799 0 ' $e reer ecenr ee eee SO ESS SEBO BS See Sas ene wm + 
; 2800 0 ‘ : spare H 
3 2801 0O ' See + 
; 2802 0 ! 
s 2305 9 ' 
>; 2804 0 literal GBSBS$C BID = 9; ! gbsb code 
>: 2805 0 Literal GBSBSM-NOTACCESSED = 1; 
>; 2806 0 Literal GBSBSK_BLN = 68; ! Length of gbsb 
>; 2807 0 Literal GBSBSC_BLN = 68; ! length of gbsb 
; 2808 0 literal GBSB$S SBDEF = 68; 
; 2809 0 macro GBSB$Q CILENANE = 0,0,0,0 %; ; ; 
; 2810 0 Literal GBSBSS_FIL E = 8; descriptor of shared file resource name. 
; 2811 0 ! resource name a NODE, DEVICE, FILE_ID 
: sais 0 ! points to RESNAM, below 
,; eis necro GBSBSW_NAME LEN = 0,0,16,0 2%; ! subfield to address descriptor length field 
: 2814 0 macro GBSBS$L “ADDRESS = 4,6, 52,6 %; ! subfield to address descriptor address field 
s 2815 0 macro GBSB$B_ pip = 8,0,8,0 %; ' block id 
>; 2816 0 macro GBSB$B_BLN = 9,0,8,0 2%: ! block Length in longwords 
:; 2817 0 macro GBSB$B_ CURMODE ='106,0,8,0 &: ' Mode of the current lock 
>: 2818 0O macro GBSB$B_F = 11,0,8,0 2; ! spare 
:; 2819 0 macro GBSBS$V— “NOTACCESSED = {1,0°1,0 %; !' Process has already decremeted access count for GBS. 
>; 2820 0 — macro GBSBST-RESNAM = 12,0,0,0 &; 
; 282: O Literal GBSBSS_RESNAM = $2: ! 32 bytes for name of shared resource 
: Ati 0 macro GBSB$L_LRSB = 44,0, 2,0 %; ' lock status block 
: 382 0 macro GBSB$W-STATUS = 44:0,16,0 %; i VMS status code 
; 824 0 macro GBSB$W_S_ BITS = 46,0,16,0 %: ! various status bits 
>; 2825 QO macro GBSB$L_LOCK_ID = 48.6,32,0 &; ! second longword of LKSB is the lock id 
; 2826 0 macro GBSB$W_GBC = 52 0,16,6 %: ! Number of global buffers in section. 
s ¢@8er 90 macro GBSB$W_GBREF = 84 0,16 9 q; ! Number of accessors to 9 lLobal section. 
: 3899 8 macro GBSB$L_GS_SIZE = §6.0,52.0 %; ! Size of global section in bytes. 
; 886 0 i Version: *v04-000' 
: 2832 8 i eeeeeeeererereeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeeeeereeeeteneer 
s 2855 0 'e * 
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; 834 0 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
; tH 0 '* DIGITAL EQUIPMENT S ORPORATIONS” MAYNARD. MASSACHUSETTS. * 
; B39 8 * ALL RIGHTS RESERVED. * 
: ° a 
; 2838 0 's THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND coriee * 
>; 2839 0 '‘® ONLY IN ACCORDANCE WITH THE TERMS OF ry CH biccn SE ue aes THE * 
; 2840 0 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE THIS SOFTWARE OR OTHER * 
: 2841 0 '® COPIES THEREOF MAY NOT BE PROVIDED 0 R OTHERWISE MADE AVAILABLE TO ANY * 
: Hk: 0 '® QTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE IS HEREBY * 
3 seer 8 ‘* TRANSFERRED. * 
; \® e 
> 2845 0 ‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC c * 
: 3846 0 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ~* 
3 84 8 ‘* CORPORATION. * 
: '® * 
: 2549 0 '‘® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; seey 1* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. a 
: ‘* *® 
s 2652 90 '® * 
5 2853 0 Le R EERE 
; 2854 0 

> 2855 0 ++ . : 

3 seeo 8 UTLDEF _UNDECLARE.R32 = undeclare macros defined in UTLDEF.R32. 

; 2858 9G 

; 2859 0 UNDECLARE ZQUOTE SBYTEOFFSET; 

: 2860 0 UNDECLARE ZQUOTE S$BITPOSITION; 

: 2861 0 UNDECLARE XQUOTE SF IELDWIDTH; 

: 2862 0 UNDECLARE X%QUOTE NSION; 

; 2863 0 UNDECLARE ZXQUOTE Saucers 

; 2864 0 UNDECLARE ZQUOTE QULST 

> ©2865 0 UNDECLARE XQUOTE GET2ND_; 

; 2866 0 UNDECLARE ZQUOTE NUL2ND_; 

: 2867 0 UNDECLARE XQUOTE GETIST_; 


COMMAND QUALIFIERS 
BLISS/LIB=LIBS$:RMSINTDEF/LIS=LIS$:RMSINTDEF.LST LIBS: RMSINTDEF 


; Run Time: SES 4 

; Elapsed Time: 00:1 

; Lines/CPU Min: 9908 

; Lexemes/CPU-Min: poet 

; Memory Used: 292 p 

; Library Pracempi lok tae Complete 
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